Re: extracting data and saving into seperate files

[Happy-the-monk]

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

[blazar]

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