Perl编程问题,怎样替换对应的数字或者字符串?我有两个文件1.txt和2.txt.在1.txt中,有2列,第一列是元素名字,第二列是它对应的数字,但是有几百行.格式如下:a(3)xvsd 1bfsoek 2arg 3tya 4.等等在2.txt中
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 11:16:06
![Perl编程问题,怎样替换对应的数字或者字符串?我有两个文件1.txt和2.txt.在1.txt中,有2列,第一列是元素名字,第二列是它对应的数字,但是有几百行.格式如下:a(3)xvsd 1bfsoek 2arg 3tya 4.等等在2.txt中](/uploads/image/z/14774068-28-8.jpg?t=Perl%E7%BC%96%E7%A8%8B%E9%97%AE%E9%A2%98%2C%E6%80%8E%E6%A0%B7%E6%9B%BF%E6%8D%A2%E5%AF%B9%E5%BA%94%E7%9A%84%E6%95%B0%E5%AD%97%E6%88%96%E8%80%85%E5%AD%97%E7%AC%A6%E4%B8%B2%3F%E6%88%91%E6%9C%89%E4%B8%A4%E4%B8%AA%E6%96%87%E4%BB%B61.txt%E5%92%8C2.txt.%E5%9C%A81.txt%E4%B8%AD%2C%E6%9C%892%E5%88%97%2C%E7%AC%AC%E4%B8%80%E5%88%97%E6%98%AF%E5%85%83%E7%B4%A0%E5%90%8D%E5%AD%97%2C%E7%AC%AC%E4%BA%8C%E5%88%97%E6%98%AF%E5%AE%83%E5%AF%B9%E5%BA%94%E7%9A%84%E6%95%B0%E5%AD%97%2C%E4%BD%86%E6%98%AF%E6%9C%89%E5%87%A0%E7%99%BE%E8%A1%8C.%E6%A0%BC%E5%BC%8F%E5%A6%82%E4%B8%8B%EF%BC%9Aa%283%29xvsd+1bfsoek+2arg+3tya+4.%E7%AD%89%E7%AD%89%E5%9C%A82.txt%E4%B8%AD)
Perl编程问题,怎样替换对应的数字或者字符串?我有两个文件1.txt和2.txt.在1.txt中,有2列,第一列是元素名字,第二列是它对应的数字,但是有几百行.格式如下:a(3)xvsd 1bfsoek 2arg 3tya 4.等等在2.txt中
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
Perl编程问题,怎样替换对应的数字或者字符串?我有两个文件1.txt和2.txt.在1.txt中,有2列,第一列是元素名字,第二列是它对应的数字,但是有几百行.格式如下:a(3)xvsd 1bfsoek 2arg 3tya 4.等等在2.txt中
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;