请教一个关于匹配以及匹配完处理的问题

zlzty

我有一个文本，里面都是类似于这样一行行的。
for(j=0;j<12;j++)       a[j].define(500+j, j+641);
for(j=0;j<12;j++)       b[j].define(650+j, j+653);
我现在想要输出这样的一段东西：
a[0]        500,641
a[1]        501,642
a[2]        502,643
....
......
.......
.........

b[0]        650,653
b[1]        651,654
......
.......
........
.........
..........
请问我该如何匹配，并且把文本中的循环给展开出来？希望打架帮帮忙哈。

yinyuemi

回复 1# zlzty

1. while(<>){
   
2. my ($i,$n,$t,$s,$e)=(/for\(([^=]+)=0;\1<(\d+);\1\+\+\)       ([^[]+)\[\1\]\.define\((\d+)\+\1, \1\+(\d+)\)/);
   
3. foreach (0..$n-1){
   
4.     print $t,"[",$_,"]\t",$s+$_,",",$e+$_
   
5. }
   
6. }

复制代码

cinanine

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. while (<DATA>) {
   
5.     my ( $x, $y, $a, $i, $j ) = /(\d+|(?<=\s)\w+(?=\[))/g;
   
6.     say $a, "[$_]\t", $i++, ',', $j++ for $x .. $y;
   
7. }
   
8. 
   
9. __DATA__
   
10. for(j=0;j<12;j++)       a[j].define(500+j, j+641);
    
11. for(j=0;j<12;j++)       b[j].define(650+j, j+653);

复制代码

zlzty

谢谢，我看看回复 2# yinyuemi


   

zlzty

非常感谢，我看下回复 3# cinanine


   

lhohoz

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. while (my $line = <>) {
   
6.     if ( $line =~ m/j=(\d+);j<(\d+);j.*?(\w+).*?(\d+).*?(\d+)/ ) {
   
7.         foreach my $i ($1 .. $2) {
   
8.             print "$3"."[$i]\t",$4+$i,",",$5+$i."\n";
   
9.         }
   
10.     }
    
11. }

复制代码

zlzty

你的这个匹配模式我看不太懂，能解释下哇。。回复 3# cinanine