提取数字并循环打印

yestreenstars

回复 49# reyleon


    不错~这么快就改过来了~

yestreenstars

回复 50# winway1988


    虽然我针对你那个问题修改了一下，不过还是新问题，我已更新主题，你有时间的话看一下能否修改？ 我等下有空也帮你看一下~

winway1988

回复 52# yestreenstars

1. awk -vRS='[0-9]+[ \t]+to[ \t]+[0-9]+' 'NR==1{for(i=1;i<=NF;i++){if($i!~/[0-9]/){prefix=prefix OFS $i}else{print prefix,$i}};next}{if($0~/[0-9]/)for(i=1;i<=NF;i++)print prefix,$i;if(RT~/to/){split(RT,a);for(i=int(a[1]);i<=int(a[3]);i++)print prefix,i}}'

复制代码

yestreenstars

回复 53# winway1988


    拿这段文本去试一下：
port trunk allow-pass vlan 1 3 to 19 21 to 25 27 29 32 to 35 37 to 41 43 to 44 48 52 to 56 59 to 64 66 to 70

jason680

回复 1# yestreenstars

$ cat urfile
port trunk allow-pass vlan 1 3 to 19 21 to 25 27
port vlan 43 to 44 48 52 to 56
xx trunk 59 to 64 66 to 70

$ awk '{s="";S=0;for(n=0;n++<NF;){if(match($n,/^[0-9]+$/))S=1;if(!S)s=s$n" ";else if($n!="to")print s,$n;else{while(++t<$(n+1))print s,t}t=$n}}' urfile
port trunk allow-pass vlan  1
port trunk allow-pass vlan  3
port trunk allow-pass vlan  4
port trunk allow-pass vlan  5
port trunk allow-pass vlan  6
port trunk allow-pass vlan  7
port trunk allow-pass vlan  8
port trunk allow-pass vlan  9
port trunk allow-pass vlan  10
port trunk allow-pass vlan  11
port trunk allow-pass vlan  12
port trunk allow-pass vlan  13
port trunk allow-pass vlan  14
port trunk allow-pass vlan  15
port trunk allow-pass vlan  16
port trunk allow-pass vlan  17
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  23
port trunk allow-pass vlan  24
port trunk allow-pass vlan  25
port trunk allow-pass vlan  27
port vlan  43
port vlan  44
port vlan  48
port vlan  52
port vlan  53
port vlan  54
port vlan  55
port vlan  56
xx trunk  59
xx trunk  60
xx trunk  61
xx trunk  62
xx trunk  63
xx trunk  64
xx trunk  66
xx trunk  67
xx trunk  68
xx trunk  69
xx trunk  70

关阴月飞

主题改了:

1. awk -vRS='to' 'NR==1{n=$NF;a=$1FS$2FS$3FS$4;for(i=5;i<NF;i++)print a,$i;next}{for(i=n;i<=$1;i++)print a,i;for(i=2;i<NF;i++)print a,$i;n=$NF}' urfile

复制代码

expert1