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.         }

復(fù)制代碼

以上代碼執(zhí)行結(jié)果：
root@epgtool225-12:/tmp# ./jj.pl  
[USTS]


問題：
1.

([\w\t]+)/mg

為啥這樣就會匹配到下一行呢？


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

sunzhiguolu

對于變量 $lp, 你想得到的輸出結(jié)果是啥呀?

gx303841541

你好， 對于TAWK那列應(yīng)該匹配失敗， 但是對于USTS那一列應(yīng)該成功啊回復(fù) 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

復(fù)制代碼

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

復(fù)制代碼