7.1/src/rand-sample.pl

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