Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

quick sampler

by boo_radley (Parson)
on Dec 10, 2003 at 15:02 UTC ( [id://313734] : CUFP . print w/replies, xml ) Need Help??

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;