PERL语言简单处理两个文件

jingwu110

小弟遇到一点小问题：
对PERL理解不是很到位，但现在需要处理一下文件：
文件1，文件2，想用PERL处理一下，看看文件1中包含了多上个文件2，并输出所包含的内容，以新的文本文件输出。


谢谢各位指导。

rubyish

不理解问题~

jingwu110

{:3_186:} 。。。
就是看1.txt中包含了多少个2.txt的内容，将所包含的内容输出。。。回复 2# rubyish


   

jingwu110

应该好弄吧，我就是不会写呀。。。。

jingwu110 发表于 2013-06-11 19:04
。。。
就是看1.txt中包含了多少个2.txt的内容，将所包含的内容输出。。。回复 2# rubyish

kk861123

回复 4# jingwu110


不难，我直接写的，没调试，请调试...

1. 
   
2. open my $fh1, '<', '1.txt' or die $!;
   
3. open my $fh2, '<', '2.txt' or die $!;
   
4. 
   
5. my %hContent2 = map { $_ => undef } <$fh2>;
   
6. while (<$fh1>) {
   
7.     print if exists $hContent2{$_};
   
8. }
   

复制代码

jingwu110

嗯嗯 嗯！！回复 5# kk861123


   

rubyish

kk861123 发表于 2013-06-11 15:29
回复 4# jingwu110

1. my %hContent2 = map { $_ => undef } <$fh2>;

复制代码

谢谢 kk861123 指导 ~ {:3_188:} {:3_188:}