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

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

复制代码

sxd229

非常感谢！

我也不知道为啥被锁，仙子 给个理由先

sxd229

试了一下，很给力！ 感谢！

grshrd49

回复 3# sxd229

这样就只在22前添加a后的值了

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 if($aa eq "22");
    
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

复制代码

mcshell

1. my @arr;
   
2. /^a\s+(\d+)(?{print map{$1.$_}@arr and undef @arr})/?():push @arr,$_ while <DATA>;
   
3. __DATA__
   
4. ..
   

复制代码

rubyish

回复 5# mcshell


    赞啊! mcshell

rubyish

也试试:

1. #!/usr/bin/perl
   
2. while (<DATA>) {
   
3.     /^a.*(\S+)$/
   
4.       ? print map $1 . $_, splice @_
   
5.       : push @_, $_;
   
6. }
   
7. __DATA__
   
8. 11
   
9. 22
   
10. 33
    
11. a 1
    
12. 44
    
13. 55
    
14. 66
    
15. a 2
    
16. 77
    
17. 88
    
18. 99
    
19. a 3

复制代码

mcshell

回复 7# rubyish


    向大牛学习

grshrd49

回复 7# rubyish


    很妙
求教splice

sxd229

都是高人，学习了！