| #!/usr/bin/perl -w | |
| srand ($$^time); | |
| @lines = (); | |
| while (<>) { | |
| push (@lines, $_); | |
| } | |
| @lines = sort byrand @lines; | |
| @lines = sort byrand @lines; | |
| @lines = sort byrand @lines; | |
| print join ('', @lines); | |
| exit; | |
| sub byrand { | |
| my $x = rand(); | |
| ($x < .3333) && return -1; | |
| ($x < .6666) && return 0; | |
| 1; | |
| } | |