Beefy Boxes and Bandwidth Generously Provided by pair Networks RobOMonk
Welcome to the Monastery
 
PerlMonks  

quick sampler

by boo_radley (Parson)
on Dec 10, 2003 at 15:02 UTC ( #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;

Comment on quick sampler
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://313734]
Approved by coreolyn
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (7)
As of 2014-04-17 22:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (458 votes), past polls