求助文本处理

Okelani

把文件A读作哈希
判断B的第一列ID是否出现在哈希A里

1. #!/usr/bin/perl
   
2. my ( $fileA, $fileB ) = qw/A B/;
   
3. open my $A, $fileA or die "$fileA: ", $!;
   
4. open my $B, $fileB or die "$fileB: ", $!;
   
5. 
   
6. my %A_has = map { $_, chomp } <$A>;
   
7. 
   
8. while (<$B>) {
   
9.     my ($id) = split /\./;
   
10.     print if $A_has{$id};
    
11. }
    

复制代码

把两个文件都读作数组。

也能解决问题， 效率有差别。

1. #!/usr/bin/perl
   
2. 
   
3. my ( $fileA, $fileB ) = qw/A B/;
   
4. open my $A, $fileA or die "$fileA: ", $!;
   
5. open my $B, $fileB or die "$fileB: ", $!;
   
6. 
   
7. my @A = grep { chomp } <$A>;
   
8. my @B = <$B>;
   
9. 
   
10. for my $B (@B) {
    
11.     my ($id) = split /\./, $B;
    
12.     for my $ID (@A) {
    
13.         if ( $id eq $ID ) {
    
14.             print $B;
    
15.             last;
    
16.         }
    
17.     }
    
18. }
    

复制代码