Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
Welcome to the Monastery
 
PerlMonks  

Re: extracting data and saving into seperate files

by Happy-the-monk (Monsignor)
on Jan 09, 2006 at 11:50 UTC ( #521899=note: print w/ replies, xml ) Need Help??


in reply to extracting data and saving into seperate files

First thing to notice is you forgot to initially open the original text file. So whether or not the count of line numbers is right, there is no data to work with.

Cheers, Sören


Comment on Re: extracting data and saving into seperate files
Re^2: extracting data and saving into seperate files
by blazar (Canon) on Jan 09, 2006 at 13:45 UTC

    He's using <> so the original text file is implicitly opened if given on the cmd line. I guess you already knew, but you may have just overlooked it.

    To be sure, just take his code and modify it like thus:

    #!/usr/bin/perl -l my @file = <>; print 0+@file;

    Indeed

    $ ./bar.pl data.txt 46 $ wc data.txt 46 36 346 data.txt

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2014-04-20 11:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls