6/src/rand-sample.pl

   1 #!/usr/bin/perl
   2
   3 while (<STDIN>) {
   4   chop;
   5   push @words, $_;
   6 }
   7 @words = sort @words;
   8 @num = (0 .. $#words);
   9
  10 @use = ();
  11
  12 for ($i = 0; $i < $ARGV[0]; ++$i) {
  13   $r=int rand @num;
  14   push @use, splice @num, $r, 1;
  15 }
  16
  17 @use = sort {$a <=> $b} @use;
  18
  19 foreach $i (@use) {
  20   print "$words[$i] ";
  21 }
  22 print "\n";