奇怪的数组

yinyuemi

代码一，

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use Data::Dumper;
   
5. my $id;
   
6. 
   
7. my @wd; ###
   
8. 
   
9. while(<DATA>){
   
10.         if(/>/){
    
11.                 print $_;
    
12.                 my $next=<DATA>;
    
13.                 chomp($next);
    
14.                 print $next,"\n";
    
15.                 $next=~m{(.{10})(?{push @wd,$1;})(?!)};
    
16.                 print Dumper \@wd;
    
17.                 undef @wd;
    
18.         }
    
19. }
    
20. 
    
21. __DATA__
    
22. >ID
    
23. ACTCGATTTCTTGAATTTAT
    
24. >ID
    
25. ACTCGATTTCTTGAA
    
26. >ID
    
27. ACTCGATTTCTTGAATT
    
28. 
    
29. #运行输出
    
30. >ID
    
31. ACTCGATTTCTTGAATTTAT
    
32. $VAR1 = [
    
33.           'ACTCGATTTC',
    
34.           'CTCGATTTCT',
    
35.           'TCGATTTCTT',
    
36.           'CGATTTCTTG',
    
37.           'GATTTCTTGA',
    
38.           'ATTTCTTGAA',
    
39.           'TTTCTTGAAT',
    
40.           'TTCTTGAATT',
    
41.           'TCTTGAATTT',
    
42.           'CTTGAATTTA',
    
43.           'TTGAATTTAT',
    
44. '         'TGAATTTAT
    
45.         ];
    
46. >ID
    
47. ACTCGATTTCTTGAA
    
48. $VAR1 = [
    
49.           'ACTCGATTTC',
    
50.           'CTCGATTTCT',
    
51.           'TCGATTTCTT',
    
52.           'CGATTTCTTG',
    
53.           'GATTTCTTGA',
    
54.           'ATTTCTTGAA',
    
55. '         'TTTCTTGAA
    
56.         ];
    
57. >ID
    
58. ACTCGATTTCTTGAATT
    
59. $VAR1 = [
    
60.           'ACTCGATTTC',
    
61.           'CTCGATTTCT',
    
62.           'TCGATTTCTT',
    
63.           'CGATTTCTTG',
    
64.           'GATTTCTTGA',
    
65.           'ATTTCTTGAA',
    
66.           'TTTCTTGAAT',
    
67.           'TTCTTGAATT'
    
68.         ];
    
69. 
    

复制代码

代码2，

1. 
   
2. #!/usr/bin/env perl
   
3. 
   
4. use strict;
   
5. use Data::Dumper;
   
6. my $id;
   
7. 
   
8. while(<DATA>){
   
9.         if(/>/){
   
10.                 print $_;
    
11.                 my $next=<DATA>;
    
12.                 chomp($next);
    
13. 
    
14.                 my @wd;   ###
    
15. 
    
16.                 print $next,"\n";
    
17.                 $next=~m{(.{10})(?{push @wd,$1;})(?!)};
    
18.                 print Dumper \@wd;
    
19.                 undef @wd;
    
20.         }
    
21. }
    
22. 
    
23. __DATA__
    
24. >ID
    
25. ACTCGATTTCTTGAATTTAT
    
26. >ID
    
27. ACTCGATTTCTTGAA
    
28. >ID
    
29. ACTCGATTTCTTGAATT
    
30. 
    
31. 
    
32. #运行输出：
    
33. 
    
34. >ID
    
35. ACTCGATTTCTTGAATTTAT
    
36. $VAR1 = [
    
37.           'ACTCGATTTC',
    
38.           'CTCGATTTCT',
    
39.           'TCGATTTCTT',
    
40.           'CGATTTCTTG',
    
41.           'GATTTCTTGA',
    
42.           'ATTTCTTGAA',
    
43.           'TTTCTTGAAT',
    
44.           'TTCTTGAATT',
    
45.           'TCTTGAATTT',
    
46.           'CTTGAATTTA',
    
47.           'TTGAATTTAT',
    
48. '         'TGAATTTAT
    
49.         ];
    
50. >ID
    
51. ACTCGATTTCTTGAA
    
52. $VAR1 = [];
    
53. >ID
    
54. ACTCGATTTCTTGAATT
    
55. $VAR1 = [];
    

复制代码

上面的代码1和2的@wd这个数组变量，位置不一样，结果也不一样，不过按照我的理解是一样，没想明白，貌似和正则的(?{})有关系，求解释~

104359176

当初我使用到代码内插这些特性的时候，也是莫名其妙的出现了很多问题，后来干脆不用了。

你想要的是不是获得所有10个字符的组合数组？

yybmsrs

1.                  Due to an unfortunate implementation issue, the Perl code
   
2.                  contained in these blocks is treated as a compile time
   
3.                  closure that can have seemingly bizarre consequences when
   
4.                  used with lexically scoped variables inside of subroutines or
   
5.                  loops.  There are various workarounds for this, including
   
6.                  simply using global variables instead.  If you are using this
   
7.                  construct and strange results occur then check for the use of
   
8.                  lexically scoped variables.
   

复制代码

perldoc perlre里面的，估计是这个原因

zhlong8

只能用全局变量，需要用到 local 声明离开作用域恢复原来的值的特性来实现回溯

yinyuemi

谢谢all，是闭包的问题