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;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024