如何在perl中同时打开两个文件，将两个文件对应行的数据进行处理

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. open (my $fhA, '<', 'a');
   
6. open (my $fhB, '<', 'b');
   
7. while (defined (my $sLine = <$fhA>)){
   
8.     my $sNum = $1 if ($sLine =~ s/\d+,(?=(\d+))//);
   
9.     print $sLine =~ s/(?<=\[)/($sNum-<$fhB>).","/er;
   
10. }
    
11. close ($fhA);
    
12. close ($fhB)
    

复制代码

sunzhiguolu

将 while 循环精简一下,

1. 
   
2. print s!\d+,(\d+)!($1-<$fhB>).",$1"!er while (defined (local $_ = <$fhA>));
   

复制代码

南宫慕容007

谢谢了回复 13# q1208c