Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: (FASTER) Example of TMTOWTDI

by gmax (Abbot)
on Mar 22, 2002 at 10:01 UTC ( #153525=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $ wc words.english
     116246  116246  989075 words.english
    ...
    0.86     user
    0.02     system
    0:00.88 elapsed
    
  2. or download this
    push @{$Word{length$_}},$_ while (<>);
    # ...
    print OUT @{$Word{$_}};
    
  3. or download this
    $Word{length$_} .= $_ while (<>);
    # ...
    print OUT $Word{$_};
    
  4. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
     print OUT $words[$_];
     close OUT;
    };
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2014-08-30 18:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (293 votes), past polls