Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
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;

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 examining the Monastery: (4)
As of 2016-06-27 06:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...











    Results (336 votes). Check out past polls.