请教perl高手，谢谢。

yinyuemi

1. perl -le '$str="port trunk allow-pass vlan 3 to 19 21 to 25 29 32 to 35 37 to 41 43 to 44 48 52 to 56 59 to 64 66 to 70";
   
2. $str=~/(\D+)((\d+ to \d+)|(\d+))(?{$t||=$1;push @a,$2})(*SKIP)(*FAIL)/;
   
3. END{map{($s,$e)=/(\d+) to (\d+)/;map{print $t,$_ if $e}($s..$e)}@a}'

复制代码

blackold

回复 11# yinyuemi


    SS, 输出中缺少 29, 48……哪里出了问题？

yinyuemi

回复 12# blackold


    多谢黑哥指正～

1. perl -le '$str="port trunk allow-pass vlan 3 to 19 21 to 25 29 32 to 35 37 to 41 43 to 44 48 52 to 56 59 to 64 66 to 70";
   
2. 
   
3. $str=~/(\D+)((\d+ to \d+)|(\d+))(?{$t||=$1;push @a,$2})(*SKIP)(*FAIL)/;
   
4. 
   
5. map{$_=/to/?$_:$_." to ".$_;($s,$e)=/(\d+) to (\d+)/;map{print $t,$_ }($s..$e)}@a'

复制代码

blackold

回复 13# yinyuemi


    学习!

inchonline

回复 13# yinyuemi

请问大侠这里有个(SKIP*)是啥意思啊


   

inchonline

回复 6# Perlvim

处理思路干净利落


   

rubyish

高手，谢谢。

yinyuemi

回复 15# inchonline


    http://perldoc.perl.org/perlre.html
    keyword "SKIP"

dqw233

1. use v5.14;
   
2. use warnings;
   
3. 
   
4. my $data = <DATA>;
   
5. $data =~ s/(\d+) \s* to \s* (\d+)/join ' ', $1..$2/exg;
   
6. say $data;
   
7. 
   
8. __DATA__
   
9. 1 to 10 11 12 to 20

复制代码

rubyish

也试下:

1. #!/usr/bin/perl -l
   
2. my ( $h, $t ) = <DATA> =~ /(.*?)(\d.*)/;
   
3. print $h.$_ for
   
4.   map { /(\d+)\D+(\d+)/ ? $1 .. $2 : $_  } $t =~ /(\d+\sto\s\d+|\d+)/g;
   
5. 
   
6. __DATA__
   
7. port trunk allow-pass vlan 3 to 19 21 to 25 29 32 to 35 37 to 41 43 to 44 48 52 to 56 59 to 64 66 to 70
   

复制代码