我的rand array函数，请提意见

djq1976

要做个小程序，需要用个随机打乱数组中元素的顺序，所以写了个函数，各位帮忙完善一下，
[size=-2]sub ran{
my @b=@_;
my @c=();
my $d='';
while($#b>=0)
{
if(rand()>0.5){$d=pop @b}else{$d=shift @b;}
if(rand()>0.5){push @c,$d;}else{unshift @c,$d;}
}
return @c;
}

Namelessxp

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. sub getRndArray {
   
7.         return $_[int rand @_];
   
8. }
   
9. $\ = "\n";
   
10. my @test = ('aa','bb','cc','dd','ee');
    
11. print getRndArray(@test);
    
12. 
    
13. sub getRndHash {
    
14.         my (%Hash) = @_;
    
15.         my $key = (keys(%Hash))[int rand keys(%Hash)];
    
16.         return ($key,$Hash{$key});
    
17. }
    
18. 
    
19. my %test2 = ('a','aa','b','bb','c','cc','d','dd','e','ee');
    
20. print getRndHash(%test2);
    
21. 
    
22. @test = sort {my $r = rand;return $r > 0.6 ? 1 : ($r < 0.3 ? -1 : 0);} @test;
    
23. print "@test";
    

复制代码

好像理解错了，补上一个

[ 本帖最后由 Namelessxp 于 2006-5-15 13:07 编辑 ]