看似简单的问题，求最简方法！请大侠们解答！

yx07004212

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my $file=shift;
   
8. open(my $fd,"<",$file);
   
9. my @line=();
   
10. while(<$fd>)
    
11. {
    
12.         if(/^=/)
    
13.         {
    
14.                 while($#line>=0)
    
15.                 {
    
16.                         my $index=int(rand($#line+1));
    
17.                         print $line[$index];
    
18.                         @line=(@line[0..$index-1],@line[$index+1..$#line]);
    
19.                 }
    
20.                 print $_;
    
21.                 next;
    
22.         }
    
23.         push @line,$_;
    
24. }
    
25. close($fd);
    

复制代码

zhlong8

yx07004212 发表于 2011-06-21 19:35

    第17行可以用 splice @line, $index-1, 1; 来删除选定的元素

ggglw

yx07004212 的方法和偶想的一样，赞成！继续求其他方法！

yinyuemi

1. perl -ne 'if(/^=/){print  map { $index=int rand @arr;$arr[$index];splice @arr, $index-1,1} @arr; @arr=();print;next;}{@arr=(@arr,$_)}'
   

复制代码