in reply to new file per line output

Instead of 
foreach $line (<LOGFILE>)

[download]
try: 
while (my $line = <LOGFILE>)

[download]

There are many other problems in your script, but that's probably why you're not looping as you want on the file lines.

EDIT: davido said it all and still succeeded to post one minute before me. ;-)

Replies are listed 'Best First'.
Re^2: new file per line output
by davido (Cardinal) on Dec 31, 2013 at 18:51 UTC

    The only impact that change has is to stop the "behind the scenes" slurping of the input file. But unless Perl itself is broken, both will iterate over the file just fine.

    EDIT: I probably got a head start. ;)


    Dave

[reply]
      Well, since I am working daily with files that have sizes in the dozens of GB ranges, it does make a real difference to me. Slurping a file into memory is usually not an option for me. But, granted, I might have overreacted.
[reply]

In Section Seekers of Perl Wisdom