perl求助

yu__ji

输入文件1：
1    a
4    c
8    h
13    f

输入文件2：
1        aaaaaaaaaaaaaaaaabvcd
2        ccccccccccccccncccccc
3        sssssssssssssssssghjc
4        aaaaaaaaaaaahjcccccaa
5        wwwwwwwwwwwwwwwwcwwww
6        haaaaaaaaaaaaaaaaaaaa
7        saaaaaaaaaaaaaaaaaaas
8        hhhhhhhhhhhhaahhhhhhh
9        sssssssssssssahssssss
10      wwwwsaaaaaaaaaaaaaaaa
11      ccccccccccccccccccccc
12        qqqqqqqqqqqqqqqqqqqqa
13      wwwwwwwwwwwwwahwwwwww

要求在文件2中搜索文件1中对应的数字是否存在对应的字母，亦即输出：
1    a
4    c
8    h

yestreenstars

1. open F1, 'a' or die;
   
2. open F2, 'b' or die;
   
3. my %h = map { /(\S+)\s+(\S+)/ } <F2>;
   
4. map { /(\S+)\s+(\S+)/; print if $h{$1} =~ $2 } <F1>;

复制代码

pitonas

{:2_172:}

1. #!/usr/bin/perl
   
2. 
   
3. my @file = qw/one.txt two.txt/;
   
4. open my $one, $file[0] or die "$file[0]\t$!";
   
5. open my $two, $file[1] or die "$file[1]\t$!";
   
6. my %word = map { split } <$one>;
   
7. 
   
8. while (<$two>) {
   
9.     next unless exists $word{$.};
   
10.     my ( $key, $str ) = split;
    
11.     next if index( $str, $word{$key} ) < 0;
    
12.     print "$key\t$word{$key}\n";
    
13. }
    

复制代码