一个循环匹配的问题

mcshell

有一个A文本

1. www.a1.com a1.com /home/a1.com
   
2. www.a2.com a2.com /home/a2.com
   
3. www.a3.com a3.com /home/a3.com
   
4. www.a4.com a4.com /home/a4.com
   
5. ..

复制代码

B文本

1. a2.com
   
2. a3.com

复制代码

读取A文本，当匹配到B文本中的域名时候打印出整行记录
结果是
www.a2.com a2.com /home/a2.com
www.a3.com a3.com /home/a3.com
这两行。
  麻烦大家提供下思路，我用while读取了A文本，然后在里面嵌套一个读取B文本来匹配，但就是只能匹配一行

yinyuemi

回复 1# mcshell

1. perl -ane '{$a{$F[0]}=1}if ($a{$F[1]}) {print }' B A
   
2. www.a2.com a2.com /home/a2.com
   
3. www.a3.com a3.com /home/a3.com
   

复制代码

jason680

ls的awk风格十足....

yinyuemi

回复 3# jason680


    哈哈，被看穿了

昭襄王

1. perl -e 'print `grep -f t002 t003`'
   
2. www.a2.com a2.com /home/a2.com
   
3. www.a3.com a3.com /home/a3.com
   

复制代码

liuqiao007

就两个循环的嵌套啊。。。

mcshell

有没有不是但命令行的处理方式吗？
   对了文本有很多行 不止2行的

mcshell

回复 2# yinyuemi


    谢谢了 可以解释下吗？  这个语法有点让人看不懂

yinyuemi

回复 8# mcshell

1. perl -ane '{
   
2. $a{$F[0]}=1  # $F[0]:数据的第一列，数组a=1
   
3. }
   
4. if ($a{$F[1]})  # 如果$F[1]:数据的第二列存在于数组中的话，
   
5. {
   
6. print  # 打印
   
7. }' B A
   
8. 
   

复制代码

perlplus33

最苯的，刚开始学习perl;
运行这个文件，将a.txt, b.txt保存在d:/下面。
open FILEB, "d:/b.txt";
foreach $lineb (<FILEB>) {
         chomp;
         $lineb =~ s/^\s+$//g;
         if ($lineb) {
              print "lineb in file b is: $lineb \n";
              open FILEA, "d:/a.txt";
              while (<FILEA>) {
                     print "matching, " . $_ if /$lineb/;
             }
             close FILEA;
         }
}
close FILEB;