查找一个具有6位字符的，含有“cat”的单词

beginner-bj

文件如下
cat <<\! >1
cat
catcat
catcatcat
sdcatv
!

希望得到
catcat
sdcatv

但下面3种写法都不是我所期望的
perl -pe '/(?=\b\w{6}\b)\b\w*cat\w*\b/' 1

perl -pe '/\b(?=\w{6}\b)\w{0,3}cat\w*/' 1

perl -pe '/cat\w{3}|\wcat\w{2}|\w{2}cat\w|\w{3}cat/' 1

请大侠指点，先谢了

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. while (<DATA>) {
   
7.         chomp;
   
8.          print "$_\n" if (length == 6 and /cat/i);
   
9. }
   
10. 
    
11. <STDIN>;
    
12. 
    
13. __DATA__
    
14. cat <<\! >1
    
15. cat
    
16. catcat
    
17. catcatcat
    
18. sdcatv
    
19. !

复制代码

把思维简化一下嘛，那样更简单。Perl的名言，不止一种方法。

beginner-bj

能否不用length == 6，只用正则实现？

x9x9

/\b(\w|cat){6}\b/

DIYBYPERL

回复 1# beginner-bj

1. #!perl -w
   
2. 
   
3. while(<DATA>){
   
4.         print  if m/^(?=\w*cat\w*)......$/;
   
5. }
   
6. __DATA__
   
7. cat <<\! >1
   
8. cat
   
9. catcat
   
10. catcatcat
    
11. sdcatv
    

复制代码

wuchangqian

1. $\="\n";
   
2. open F , "<1";
   
3. while(<F>){
   
4.         print("line: $. => $1 ")if /\b((?=\w*cat\w*)......)\b/m;
   
5. }
   
6. close F;

复制代码

beginner-bj

谢谢各位，我自己再研究下。

beginner-bj

看了诸位的回复，终于明白了。其实不是正则写错了，而是perl参数写错了。
perl -pe '/(?=\b\w{6}\b)\b\w*cat\w*\b/' 1 改成以下就可以了：
perl -ne 'print if /(?=\b\w{6}\b)\b\w*cat\w*\b/' 1

其它，以此类推。