如何在perl中同時打開兩個文件，將兩個文件對應(yīng)行的數(shù)據(jù)進行處理

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)
    

復(fù)制代碼

sunzhiguolu

將 while 循環(huán)精簡一下,

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

復(fù)制代碼

南宮慕容007

謝謝了回復(fù) 13# q1208c