两个文件处理是遇到问题

xingzhou823

1.txt

---

aa
bb
cc
dd
11
22

---

2.txt

---

aa 99
bb 88
cc 77
dd 66
rr 11
tt 22
ff 33
...
数量很多

---

现在想找到1.txt中所有字符的对应，得到如下结果

---

aa 99
bb 88
cc 77
dd 66
11 rr
22 tt
...

---

[code]#!/usr/bin/perl -w

use strict;


my $a="2.txt";
my $b="1.txt";
open IN1, $a or die "can't open $a";
open IN2, $b or die "can't open $b";
open OUT, '>', "out.txt" or die "can't open out.txt";

my @data = <IN1>;
sub func
{

        my ($str, @arr) = @_;
        for (my $i=0; $i<=$#arr; ++$i)
        {
                chomp($arr[$i]);
                if ($str eq $arr[$i])
                {
                        return 1;
                }
        }        
        return 0;
}

my @names = <IN2>;

foreach my $i (0..$#data){
                 my @line2 = split(/\s+/,$data[$i]);
                 my $name2 = shift @line2;
                 if (func($name2, @names))
                 {
                        print OUT $data[$i];
                       }
            }        
close IN1;
close IN2;
close OUT;[code]

结果里面没有
11 rr
22 tt
...

yinyuemi

回复 1# xingzhou823

没测试

1. open (fh1,"1.txt") or die "$!";
   
2. open(fh2,"2.txt") or die "$!";
   
3. my %hash1;
   
4. while(<fh1>){
   
5.    chomp;
   
6.    $hash1{$_} = 1;
   
7. }
   
8. while(<fh2>){
   
9.    chomp;
   
10.    my @a=split;
    
11.    my @a_r=reverse @a;
    
12.    print ($hash1{$a[0]}? "@a"."\n" :
    
13.             $hash1{$a[1]}? "@a_r"."\n" :"");
    
14. }
    
15. close(fh1);
    
16. close(fh2);
    
17. 
    

复制代码

mcshell

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. open FA,"<2.txt" or die "$!";
   
4. my %hash;
   
5. while (<FA>){
   
6. my($letter,$num)=split;
   
7.   $hash{$letter} =$num;
   
8.   $hash{$num} = $letter;
   
9. }
   
10. close FA;
    
11. open FB,"<1.txt" or die "$!";
    
12. while (<FB>){
    
13. chomp;
    
14.    my  $k =$_;
    
15. print "$_ $hash{$_}\n" if (exists $hash{$k});
    
16. 
    
17. }
    
18. close FB;
    

复制代码