一个循环 的那个帖子咋锁贴了呀

grshrd49

给你写了一个 你试试
@sxd229

1. use strict;
   
2. my @a = <DATA>;
   
3. my $do = 0;
   
4. my @doarr;
   
5. my @resule;
   
6. for my $aa (@a){
   
7.         chomp $aa;
   
8.         if($aa =~ /^a\s+?(.*)/){
   
9.                 @doarr = map{$1.$_}@doarr;
   
10.                 push @resule,@doarr;
    
11.                 @doarr = ();
    
12.                 next;
    
13.         }
    
14.         push @doarr,$aa;
    
15. }
    
16. print "$_\n" for(@resule);
    
17. 
    
18. __DATA__
    
19. 11
    
20. 22
    
21. 33
    
22. a 1
    
23. 44
    
24. 55
    
25. 66
    
26. a 2
    
27. 77
    
28. 88
    
29. 99
    
30. a 3

复制代码

rubyish

回复 18# xiumu2280

1. while读DATA的时候应该是一行行读的
   
2. 那@_读完一行不就初始化了嘛？
   
3. 怎么还储存了上一行的数据。

复制代码

初始化是 $_，不是 @_。

   

kernel69

明白了

回复 7# rubyish


   

kernel69

请教一下大牛，是怎样把数组上次push的数据清空的，难道是splice @_?

回复 7# rubyish


   

xiumu2280

我有个疑问，while读DATA的时候应该是一行行读的·· 那@_读完一行不就初始化了嘛？
怎么还储存了上一行的数据。
回复 7# rubyish


   

午夜凋零

mcshell 发表于 2013-08-30 14:08
回复 15# 午夜凋零

是这样的：

结合着你的例子，又搜到了版主之前给你解答的内容，这下明白了。非常感谢~~  

http://bbs.chinaunix.net/forum.p ... ;page=1#pid22327578

mcshell

回复 15# 午夜凋零

是这样的：
(??{code})参与到正则运算了，也就是说后面的$1又参与到匹配中去了，产生了回朔，因为他需要尝试匹配字符。回朔了结果如下：

1. 
   
2. 
   
3. $a=~/(\d+)(?{print "$1\n"})(?!)/;# (?!)此次进行强行回朔，相当于模拟了一下，你也可以直接输出刚才的结果$1
   
4. 输出了:
   
5. 123
   
6. 12
   
7. 1
   
8. 23
   
9. 2
   
10. 3
    

复制代码

所以产生了上面的结果
再比如:

1. my $a = "abc123def";
   
2. $a =~ /(\d+)((??{$1+1}))(\d+)(?{print "$1|$2|$3"})/;

复制代码

$2就是前面$1+1  也就是 1+1   
匹配到了2
$3是3  

罗嗦了这么多，不过还是要多用才明白
   

午夜凋零

mcshell 发表于 2013-08-30 11:02
回复 11# 午夜凋零
(?{code})就是可以将匹配到的结果用于逻辑运算，但是不会影响正则的匹配
(??{code})  ...

非常感谢。
上面那种明白了。
下面那种试了试，还是不太清楚是什么原理，下面是我的尝试，不知道为什么会打印出下面的结果。

1. my @array;
   
2. my $a = "abc123def";
   
3. $a =~ /(\d+)(??{push @array, $1+4})/;
   
4. print "@array"."\n";

复制代码

1. 127 16 5 27 6 7

复制代码

mcshell

回复 11# 午夜凋零
(?{code})就是可以将匹配到的结果用于逻辑运算，但是不会影响正则的匹配
(??{code}) 和上面不同点在于，可以上次匹配的结果经过计算再动态插入在正则中。

开始可能不懂，，用多就就明白了，我也是请教过版主，用的多了 感觉很偷懒~~

   

hnsyhly

:wink: