求助：perl对文本文件中tab的操作写法

robinhappiness

请教大家！
--------------------------------------
文本文件memo.txt:
1   2014/01     a     wsaafsd6
2   2014/01     b     rhdfbbd4
3   2014/02     c     qewrc213
4   2014/02     a     rghahthte5
5   2014/03     b     ertbahdf1y
6   2014/04     d     ereredes2
7   2014/04     a     yaehrtrtr5
--------------------------------------

每列之间都是用tab分隔，

想要把第三列中所有含a和b的行数取出来。

请教这个perl程序怎样写？
谢谢。

xiumu2280

1. split /\t/
   
2. 即可分割

复制代码

yestreenstars

1. perl -lane '$F[2]=~/a|b/&&print'

复制代码

robinhappiness

回复 3# yestreenstars


多谢回复！

robinhappiness

回复 2# xiumu2280

多谢回复
   

yestreenstars

回复 4# robinhappiness

1. while (<DATA>) {
   
2.         (split)[2] =~ /a|b/ && print;
   
3. }
   
4. 
   
5. __DATA__
   
6. 1   2014/01     a     wsaafsd6
   
7. 2   2014/01     b     rhdfbbd4
   
8. 3   2014/02     c     qewrc213
   
9. 4   2014/02     a     rghahthte5
   
10. 5   2014/03     b     ertbahdf1y
    
11. 6   2014/04     d     ereredes2
    
12. 7   2014/04     a     yaehrtrtr5

复制代码

huzikan

1. perl -ne  '/\s+[ab]\s+/&& print' memo.txt

复制代码