請教：如何匹配跨行字符串，并找出最大數(shù)？

capfsxl

#!/usr/bin/perl
#use 5.016;
use strict;
use warnings;

my $run_config = "Standard IP access list 10
10 permit 10.10.10.0,wildcard bits 0.0.0.255
Standard IP access list 11
10 permit 10.10.10.0,wildcard bits 0.0.0.255
Standard IP access list 2301
10 permit 10.10.10.0,wildcard bits 0.0.0.255
Standard IP access list 96
10 permit ip 10.10.11.0 0.0.0.255 any
Standard IP access list 110
10 permit ip 10.10.11.0 0.0.0.255 any
Standard IP access list 2351
10 permit ip 10.10.11.0 0.0.0.255 any";
my (@st,@ex,@Standard,@Extended);   
if($run_config =~ /Standard\s+IP\s+access\s+list\s+(\d+)/smg){
           if($1>=1 && $1<=99) {
               push @st,$1;
             }
        }
@Standard= sort {$b <=> $a} @st;
print $Standard[0]+1;
我想得到的結(jié)果是97，但運(yùn)行總顯示11，說明只匹配了第一行的10，然后加1輸出的，我的程序錯在哪里？怎么才能逐行匹配呢？感謝各位幫助！

rubyish

:

1. my @st = grep { $_ >= 1 && $_ <= 99 } map /list\s+(\d+)/g, $run_config;
   
2. my ( $wanted ) = sort { $b <=> $a } @st;
   
3. say $wanted + 1;

復(fù)制代碼

capfsxl

回復(fù) 2# rubyish


太感謝了，高手啊！   

rubyish

錯在:

1. for ( $run_config =~ /list\s+(\d+)/g ) {
   
2.     if ( $_ >= 1 && $_ <= 99 ) {
   
3.         push @st, $_;
   
4.     }
   
5. }

復(fù)制代碼

lhohoz

1. @match = ($run_config =~ m/\blist\s+(\d+)/g);
   
2. @under_100 = grep { $_ >= 1 && $_ <= 99 } @match;
   
3. @max = sort { $a <=> $b } @under_100;
   
4. print $max[-1]+1;

復(fù)制代碼

capfsxl

回復(fù) 5# lhohoz

寫得很清楚，感謝你的無私幫助！
   

kangwenyi

回復(fù) 4# rubyish
里面這$_怎么解釋，為什么會是數(shù)字呢

   

rubyish

kangwenyi 發(fā)表于 2013-05-29 06:34
回復(fù) 4# rubyish
里面這$_怎么解釋，為什么會是數(shù)字呢

(\d+) 就是數(shù)字

kangwenyi

回復(fù) 8# rubyish
我的意思是為什么不是/list\s+(\d+)/ 而只是(\d+)呢

rubyish

回復(fù) 9# kangwenyi


    return $1