Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: extracting data and saving into seperate files

by Happy-the-monk (Abbot)
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

Replies are listed 'Best First'.
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?
[Corion]: marto: Oh, I'm jealous. I'm going to see DM in Frankfurt, but it's a stadium full of people, so, rather a big thing where you mostly get to see the band on screens ;)
[marto]: yes, the last time I saw them was in Berlin a few years ago, at the old Olympic stadium
[marto]: After Sunday I don't think I'll go see them again :)

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (11)
As of 2017-03-24 11:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (301 votes). Check out past polls.