Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
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 making s'mores by the fire in the courtyard of the Monastery: (12)
As of 2016-04-29 20:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    :nehw tseb si esrever ni gnitirW







    Results (441 votes). Check out past polls.