http://qs321.pair.com?node_id=313734

Creates a text file containing a number of lines sampled from some other text file. usage $0 infile outfile #of samples
#! perl.exe use strict; use Algorithm::Numerical::Sample qw /sample/; open FH, $ARGV[0] or die "can't open infile: $!"; open FH2, ">$ARGV[1]" or die "can't open outfile: $!"; print FH2 sample (-set => [<FH>], -sample_size => $ARGV[2]); close FH; close FH2;