Perl编程问题,怎样替换对应的数字或者字符串?
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/09 10:30:02
Perl编程问题,怎样替换对应的数字或者字符串?
我有两个文件1.txt和2.txt.
在1.txt中,有2列,第一列是元素名字,第二列是它对应的数字,但是有几百行.格式如下:
a(3)xvsd 1
bfsoek 2
arg 3
tya 4.等等
在2.txt中也有几百行,每一行都是由1.txt中的元素组成的序列例如:
a(3)xvsd-arg-bfsoek
arg-tya-arg-bfsoek
.
我现在要把2.txt中的序列,用1.txt中元素相对应的数字来替换该怎么做?
例如 1-3-2
3-4-3-2
我有两个文件1.txt和2.txt.
在1.txt中,有2列,第一列是元素名字,第二列是它对应的数字,但是有几百行.格式如下:
a(3)xvsd 1
bfsoek 2
arg 3
tya 4.等等
在2.txt中也有几百行,每一行都是由1.txt中的元素组成的序列例如:
a(3)xvsd-arg-bfsoek
arg-tya-arg-bfsoek
.
我现在要把2.txt中的序列,用1.txt中元素相对应的数字来替换该怎么做?
例如 1-3-2
3-4-3-2
my %data;
open f1,"1.txt" or die "Can't open F1";
while ( chomp ( my $line = ) ) {
$line s/\s+(\d+)$//;
$data{$line} = $1;
}
close f1;
open f2,"2.txt" or die "Can't open F2";
while ( chomp ( my $line = ) ) {
my @temp = split /-/,$line;
my $tempLine;
$tempLine .= $data{$_} ."-" foreach ( @temp );
chop $tempLine;
print $tempLine .$/;
}
close f2;
open f1,"1.txt" or die "Can't open F1";
while ( chomp ( my $line = ) ) {
$line s/\s+(\d+)$//;
$data{$line} = $1;
}
close f1;
open f2,"2.txt" or die "Can't open F2";
while ( chomp ( my $line = ) ) {
my @temp = split /-/,$line;
my $tempLine;
$tempLine .= $data{$_} ."-" foreach ( @temp );
chop $tempLine;
print $tempLine .$/;
}
close f2;
Shell或者perl进行随机分组的问题
C++编程问题求解编写一个程序,将字符串“Love”译成密码,译码方法采用替换加密法,其加密规则是:将原来的字母用字母表
在EXCEL中怎样使得一列中的数字替换成所对应的数字:0—29,33.1—99,55.2—88,58.3—46,37.4
用c语言编程:输入一个字符串,统计其中英文字母,数字符号及其他字符的个数
C#我需要判断一个字符串是否是“字母 + 数字”或者是“字母 + 数字+()” 的形式,该怎么办?
用C写个编程输入一个完全由数字组成的字符串,从字符串的第一个字符开始,每两个数字作为两位整数,存放在一维整型数组中,如果
perl 正则表达式问题
怎么用MATLAB比较两个矩阵的对应数字并替换
C#正则表达式,怎样表示取一个字符串的前四位?字符串可以使英文字母、数字符号、汉字等的任意形式.
怎样把excel一列数字替换为除以一万的数字,如14685.23替换为1.47
c语言问题,如何将字符串中的数字提取
新手看不懂的字符串转换问题,