亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標題: 請教：如何匹配跨行字符串，并找出最大數(shù)？ [打印本頁]

作者: capfsxl 時間: 2013-05-28 17:26
標題: 請教：如何匹配跨行字符串，并找出最大數(shù)？
#!/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;
我想得到的結果是97，但運行總顯示11，說明只匹配了第一行的10，然后加1輸出的，我的程序錯在哪里？怎么才能逐行匹配呢？感謝各位幫助！

作者: rubyish 時間: 2013-05-28 17:49
本帖最后由 rubyish 于 2013-05-28 14:02 編輯

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

復制代碼

作者: capfsxl 時間: 2013-05-28 18:02
回復 2# rubyish

太感謝了，高手��！

作者: rubyish 時間: 2013-05-28 18:13
錯在:

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

復制代碼

作者: lhohoz 時間: 2013-05-28 20:43

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

復制代碼

作者: capfsxl 時間: 2013-05-28 23:20
回復 5# lhohoz

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

作者: kangwenyi 時間: 2013-05-29 10:34
回復 4# rubyish
里面這$_怎么解釋，為什么會是數(shù)字呢

作者: rubyish 時間: 2013-05-31 12:07

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

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

作者: kangwenyi 時間: 2013-05-31 16:24
回復 8# rubyish
我的意思是為什么不是/list\s+(\d+)/ 而只是(\d+)呢

作者: rubyish 時間: 2013-06-03 20:33
回復 9# kangwenyi

return $1

歡迎光臨 Chinaunix (http://72891.cn/)