好好学习，天天向上——用perl的同学来讨论下吧

ilaer

开始学习perl，“编程入门”看到子程序。
欢迎各位同学冒个泡，灌个水，说说自己都用perl做什么。

有本地perl的qq群或相关qq群推荐更佳。
本人建的qq群:
perl等编程本地交流群 461668892


我用perl来比较文本A每行是否有相同的在文本B，有则把相同的写进文本C。
例如：要在很多记录的文件B里查找文件A里的几个数据的相关详细资料。

1. $f1="C:/search.txt";
   
2. $f2="C:/et.txt";
   
3. $f3="C:/result.txt";
   
4. 
   
5. open (FH1, "<$f1") || die"cannot open the file1 \n";
   
6. open (FH2, "<$f2") || die"cannot open the file2 \n";
   
7. open (FH3, ">$f3") || die"cannot open the file3 \n";
   
8. #比较search.txt和et.txt，有相同写进result.txt
   
9. my @aa=<FH1>;
   
10. my @bb=<FH2>;
    
11. foreach my $aa (@aa){
    
12. 
    
13.         foreach my $bb (@bb){
    
14.               @b=split(/\\/,$bb);
    
15.               $b=pop(@b);
    
16.         if ($aa eq $b)
    
17.                  {print FH3 "$bb\n";
    
18.                  }
    
19. 
    
20.                             }
    
21. 
    
22.                     }
    
23. close FH1;
    
24. close FH2;
    
25. close FH3;

复制代码

肉肉的ME

这是什么东东来的？？？

追风

肉肉的ME 发表于 2015-5-26 16:44
这是什么东东来的？？？

编程软件来的