Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^2: Get random unique lines from file

by roboticus (Canon)
on Aug 17, 2012 at 23:42 UTC ( #988126=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $ for J in {0,1,2,3,4,5,6,7,8,9}{0,1,2,3,4,5,6,7,8,9}{0,1,2,3,4,5,6,7,
    +8,9}; do ./pm_sample_lines_from_file.pl a_million_lines 25 >t.$J; don
    +e
    
  2. or download this
    #!/usr/bin/perl                                                       
    +                                        
    #
    ...
        }
        printf "% 3u: (% 3u) %s\n", $I, $H{$I} // 0, $bar;
    }
    
  3. or download this
    $ ./pm_sample_histo_test.pl t.*
      0: (321) **************************************************
    ...
     97: (263) **************************************+*          
     98: (241) *************************************             
     99: (236) ************************************    
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (6)
As of 2014-10-02 01:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (41 votes), past polls