Help for this page
sub short_sorts { my ($a,$b,$type) = @_; ... my $random_sort = (keys %sorts)[rand (keys %sorts)]; return $sorts{$random_sort}->($a,$b) if !$type; }
my @unsorted_array = qw(red yellow green cyan blue magenta); my @sorted_array = sort { short_sorts($a,$b,'ci-d-r") } @unsorted_arra +y; print "$_\n" for @sorted_array;
yellow green ... blue red magenta
www.com | www.net | www.org
No recent polls found