Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re2: Extreme Example of TMTOWTDI

by dragonchild (Archbishop)
on Mar 22, 2002 at 16:41 UTC ( #153597=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    open(OUTPUT,">>${len}.words");
    while(<>){
    ...
      print OUTPUT "$_\n";
    }
    close(OUTPUT);
    
  2. or download this
    while (<>) {
        chomp;
        my $len = length;
        print OUTPUT $_, $/;
    }
    
  3. or download this
    use IO::File;
    my %Handles;
    ...
    }
    # This is unnecessary unless you're anal (like I try to be)
    $_->close for values %Handles;
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2020-02-29 10:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What numbers are you going to focus on primarily in 2020?










    Results (128 votes). Check out past polls.

    Notices?