模式匹配求教

nanshanjin

1/1:6:0,6:18:213,18,0

1/1:0,4:12:4:140,12,0

1/1:743,63,0:63:0,21:21

0/1:168:75,93:99:2642,0,2409
1/1:490,42,0:15:0,15:42

对这些进行匹配，想得到的结果是
0,6
0,4
0,21
75,93
0,15
求大神解答

sunzhiguolu

1. /:(\d+,\d+):/

复制代码

nanshanjin

回复 2# sunzhiguolu 如果是
1/1:0,18:45:18:513,45,0
1/2:96:0,9,4:13:410,124,96,286,0,274
1/1:201,18,0:6:18:0,6
这样，得到
0,18
0,9,4
0,6
有三个的或者在最后一列怎么办？

sunzhiguolu

回复 3# nanshanjin

1/1:6:0,6:18:213,18,0
1/1:0,4:12:4:140,12,0
1/1:743,63,0:63:0,21:21
0/1:168:75,93:99:2642,0,2409
1/1:490,42,0:15:0,15:42
1/1:0,18:45:18:513,45,0
1/2:96:0,9,4:13:410,124,96,286,0,274
1/1:201,18,0:6:18:0,6

对于这些内容, 期望的结果是什么?

sunzhiguolu

先上个图,

sunzhiguolu

回复 3# nanshanjin
你试下,

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $R = qr /(?<=:)(?(?=.*?(?<=:)(\d+,\d+)(?=:|\Z))|(?=(\d+,\d+,\d+)(?=:|\Z)))((?(2)\2|\1))/;
   
6. while (<DATA>){
   
7.     print "$3\n" if (/$R/);
   
8. }
   
9. 
   
10. __DATA__
    
11. 1/1:6:0,6:18:213,18,0
    
12. 1/1:0,4:12:4:140,12,0
    
13. 1/1:743,63,0:63:0,21:21
    
14. 0/1:168:75,93:99:2642,0,2409
    
15. 1/1:490,42,0:15:0,15:42
    
16. 1/1:0,18:45:18:513,45,0
    
17. 1/2:96:0,9,4:13:410,124,96,286,0,274
    
18. 1/1:201,18,0:6:18:0,6

复制代码

Simon-文帅

/([\d,]+)/

jason680

回复 3# nanshanjin

$ awk 'BEGIN{h=":(";t=")(:|$)";n="[0-9]+";n2=h n","n t;n3=h n","n","n t}function x(s){if(match($0,s,m)){print m[1];next}}{x(n2);x(n3)}' FILE
0,6
0,4
0,21
75,93
0,15
0,18
0,9,4
0,6


# for perl
$ perl -lane '{if(m/:(\d+,\d+)(:|$)/){print $1;next}if(m/:(\d+,\d+,\d+)(:|$)/){print $1}}' FILE

sunzhiguolu

回复 8# jason680
m/:(\d+,\d+,\d+)(:|$)/
还是您考虑的周到, 才明白.

nanshanjin

回复 8# jason680
谢谢大神，学习了