请教perl高手，谢谢。

regodme

各位老大，我是个perl门外汉，呵呵。
想编个小程序简化一下工作。请各位援手。      

一个字符串匹配尾部用$不生效是什么原因？

用户正则表达式如何匹配如下面的字符串，后面的 数字 to 数字 需要分解成连续的条目，谢谢。
问题是下面的一行字符串，把单独的数字提取出来，用to 连接的两个数中间的数值都填上
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
输出结果
port trunk allow-pass vlan 3
port trunk allow-pass vlan 4
port trunk allow-pass vlan 5
... ...
port trunk allow-pass vlan 18
port trunk allow-pass vlan 19
port trunk allow-pass vlan 21
port trunk allow-pass vlan 22
... ...
port trunk allow-pass vlan 25
port trunk allow-pass vlan 29

... ...

dahe_1984

啥意思？没看明白呢

regodme

把port trunk allow-pass vlan 后面的数字序列拆成多行。“to” 表示前后两个数字之间是连续的。

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. while (<DATA>) {
   
4.     /(.*?)(?=\d+)/, my $v = $1;
   
5.     my @dat = /(\d+)\s*to\s*(\d+)/g;
   
6.     for (my $i = 0; $i < $#dat; $i += 2) {
   
7.         my ($j, $k) = @dat[$i, $i+1];
   
8.         print "$v$_\n" for ($j..$k);
   
9.     }
   
10. }
    
11. 
    
12. __DATA__
    
13. 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

复制代码

regodme

谢谢，很强大。

帮我再看看，29  和 48 没有输出。

谢谢。
在线等。：）

Perlvim

1. #!perl
   
2. 
   
3. use 5.014;
   
4. 
   
5. my $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';
   
6. my $head_str = 'port trunk allow-pass vlan';
   
7. my @ranges = $str =~ /(\d+)\s+to\s+(\d+)/g;
   
8. my @numbers = $str =~ /\d+\s+(\d+)\s+\d+/g;
   
9. while (@ranges) {
   
10.   my $start_number = shift @ranges;
    
11.   my $end_number = shift @ranges;
    
12.   my @range_number = ($start_number .. $end_number);
    
13.   push @numbers, @range_number;
    
14. }
    
15. 
    
16. foreach my $number (sort { $a <=> $b } @numbers) {
    
17.   say "$head_str $number";
    
18. }
    

复制代码

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. my @dat;
   
4. my $v;
   
5. my $_ = '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';
   
6. /(.*?)(?=\d+)/, $v = $1;
   
7. while (/(\d+)(\s*to\s*(\d+))?/g) {
   
8.     if (!defined $3) {
   
9.         push @dat, $1; next;
   
10.     }
    
11.     push @dat, $_ for ($1..$3);
    
12. }
    
13. print "$v$_\n" for @dat;

复制代码

regodme

谢谢Perlvim cdtits
解决了问题，还学到了处理思路，强大。

zhaodelu1

  1 #!/usr/bin/perl -w
  2 my $string="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";
  3 my @list=();
  4 while($string=~m/((\d+)\s+to\s+(\d+))/){
  5         for(my $i=$2;$i<=$3;$i++){
  6                 push @list,$i;
  7         }
  8         $string=~s/$1/@list/;
  9         @list=();
10 }
11 print "$string\n";

blackold

try

1. #!/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my $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';
   
7. my($head,$numberstr) = $str =~ /^(\D+)(\d.*)/;
   
8. $numberstr =~ s/ +to +/to/g;
   
9. my @numbers = map {/(\d+)to(\d+)/?($1..$2):$_} split / /,$numberstr;
   
10. print "$head$_\n" foreach @numbers;

复制代码