奇怪的數(shù)組

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. #運(yùn)行輸出
    
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. 
    

復(fù)制代碼

代碼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. #運(yùn)行輸出：
    
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 = [];
    

復(fù)制代碼

上面的代碼1和2的@wd這個(gè)數(shù)組變量，位置不一樣，結(jié)果也不一樣，不過按照我的理解是一樣，沒想明白，貌似和正則的(?{})有關(guān)系，求解釋~

104359176

當(dāng)初我使用到代碼內(nèi)插這些特性的時(shí)候，也是莫名其妙的出現(xiàn)了很多問題，后來干脆不用了。

你想要的是不是獲得所有10個(gè)字符的組合數(shù)組？

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.
   

復(fù)制代碼

perldoc perlre里面的，估計(jì)是這個(gè)原因

zhlong8

只能用全局變量，需要用到 local 聲明離開作用域恢復(fù)原來的值的特性來實(shí)現(xiàn)回溯

yinyuemi

謝謝all，是閉包的問題