perl 匹配非某些字符串

HAHAPrince

....   second=1  ...
   ....   second=0   ....
   ....   second=34  ....
   ....   second=23   ....
   ....   second=1   ....
   ....   second=1   ....
   ....   second=1   ....
   ....   second=1   ....
   ....   second=2   ....
   ....   second=0   ....
   ....   second=0   ....
   ....   second=1   ....
   ....   second=13   ....

如何匹配非second=0 和 second=1 的数据

[ 本帖最后由 HAHAPrince 于 2009-10-15 16:15 编辑 ]

Perl_Er

!~ /second=[0|1]$/

HAHAPrince

原帖由 Perl_Er 于 2009-10-15 16:01 发表
!~ /second=[0|1]$/

thanks.
修改了，后面还有其他字符的  
但是 second=x   这些前后都有个空格

HAHAPrince

/^.*second=(?![01]).*/

这样拿不到second=13

Perl_Er

为什么要匹配，不匹配也可以啊.  逆过来想一下

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Data::Dumper;
   
4. 
   
5. while (<DATA>) {
   
6.     if(! /\s*second=[0|1]\s+/){
   
7.         print $_;
   
8.     }
   
9. }
   
10. 
    
11. __DATA__
    
12. ....   second=1  ...
    
13. ....   second=0   ....
    
14. ....   second=34  ....
    
15. ....   second=23   ....
    
16. ....   second=1   ....
    
17. ....   second=1   ....
    
18. ....   second=1   ....
    
19. ....   second=1   ....
    
20. ....   second=2   ....
    
21. ....   second=0   ....
    
22. ....   second=0   ....
    
23. ....   second=1   ....
    
24. ....   second=13   ....

复制代码

[ 本帖最后由 Perl_Er 于 2009-10-15 16:46 编辑 ]

HAHAPrince

原帖由 Perl_Er 于 2009-10-15 16:44 发表
为什么要匹配，不匹配也可以啊.  逆过来想一下
#!/usr/bin/perl -w
use strict;
use Data:umper;

while () {
    if(! /\s*second=[0|1]\s+/){
        print $_;
    }
}

__DATA__
....   sec ...

可以了
谢谢

churchmice

原帖由 Perl_Er 于 2009-10-15 16:01 发表
!~ /second=[0|1]$/

虽然没啥大影响，但是下面这样更好吧

1. 
   
2. !~ /second=[01]$/
   

复制代码

Perl_Er

ok，跟()搞混了。

HongLian3

经测试，在second=x前后都有空格的情况下，这样就可以了：
!~ / second=[01] /
在second=[01]前后留出空格即可。

blackold

regular expression