Perl 正则遇到的问题

gx303841541

1. #!/usr/bin/perl
   
2. 
   
3. 
   
4. 
   
5. my $lp = qq(
   
6. UICS  2    1477     1477     128    10       1467    UI ipsec ctx small pool
   
7. TAWK  1    819      819      56     819      820     
   
8. USTS  1    10       10       72     10       2220    SEGW TS POOL
   
9. GTP9  1    24       24       40     24       3288    GTPV2 Packet filter componet Pool
   
10. );
    
11. 
    
12. 
    
13. 
    
14.         my (@pool_status_now) = ($lp =~ m/(\w+)\s+\d+\s+(\d+)\s+(\d+)\s+\d+\s+\d+\s+\d+\s+([\w\t]+)/mg);
    
15. 
    
16. 
    
17. #print "@pool_status_now\n";
    
18. 
    
19. 
    
20. 
    
21.         for(my $jjj =0; $jjj < 800; $jjj++) {
    
22. 
    
23.             my $magic = shift (@pool_status_now);
    
24.             my $max = shift (@pool_status_now);
    
25.             my $free = shift (@pool_status_now);
    
26.             my $pool_name = shift (@pool_status_now);
    
27. 
    
28. 
    
29.         if ($magic eq 'USTS' || $magic eq 'TAWK') {
    
30.                         print "[$pool_name]\n";
    
31.                 }
    
32. 
    
33.         }

复制代码

以上代码执行结果：
root@epgtool225-12:/tmp# ./jj.pl  
[USTS]


问题：
1.

([\w\t]+)/mg

为啥这样就会匹配到下一行呢？


([\w\t]+)/m 就不会，  /g会自动把'\n' 换成'\t' ? 实在不理解是怎么匹配到 下一行的 'USTS'的。 希望大家指点。

sunzhiguolu

对于变量 $lp, 你想得到的输出结果是啥呀?

gx303841541

你好， 对于TAWK那列应该匹配失败， 但是对于USTS那一列应该成功啊回复 2# sunzhiguolu

gx303841541

简化一下问题：
kobe@ubuntu:~$ cat jj.pl
#!/usr/bin/perl
use v5.10;


my $lp = '
TAWK  1    819      819      56     819      820     
USTS  1    10       10       72     10       2220    SEGW TS POOL
';

print "$lp\n-------------\n";

my @pool_status_now = $lp =~ m/(\w+)\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+(\d+\s+.*)\R/m;


#print "@pool_status_now\n";




foreach (@pool_status_now) {

        print "[$_]\n";

}


kobe@ubuntu:~$ ./jj.pl

TAWK  1    819      819      56     819      820     
USTS  1    10       10       72     10       2220    SEGW TS POOL

-------------
[TAWK]
[820     
USTS  1    10       10       72     10       2220    SEGW TS POOL]
kobe@ubuntu:~$

就是搞不清为啥用了/m修饰符， '.*'怎么还能匹配'\n'

hztj2005

/m本来就是多行模式，使.匹配'\n'。

sunzhiguolu

这样试下:

1. m/(\w+)\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+(\d+\h+.*)\R/m

复制代码

sunzhiguolu

从始至终都没有弄明白, 你的需求到期是啥. 如果光是提取一行中特定字段的值, 倒不如使用 split 操作符进行提取 除非有特殊的要求.
我是这样子理解的.

104359176

让你匹配下一行的不是 /m, 而是 /g, 在全局匹配 /g 情况下，正则会尝试匹配所有符合条件的字符串片段。：

如果你加了 assertion 就不同了：

1. m/^(\w+)\s+\d+\s+(\d+)\s+(\d+)\s+\d+\s+\d+\s+\d+\s+([\w\t]+)/mg

复制代码