in reply to Re: Not able to capture information
in thread Not able to capture information

I could see this required an if else statement but not how to prevent requiring data storage during the subroutine, that is, using arrays (see my comment below). So simple control of the \n character at the start of a line before flow control kicks in can save a lot of cpu. Rather than at the end where you need to hold the line while the data is fed in to find out if the next line is a match or not.

Drat, I was just starting to enjoy my array solutions.

Replies are listed 'Best First'.
Re^3: Not able to capture information
by kcott (Archbishop) on Feb 17, 2012 at 10:39 UTC

    Given he probably wants to print to a log file, you could remove the data storage overhead by changing 

    my @linearr;
...
print @linearr;

    [download]

    to 

    use Tie::File;
tie my @linearr, 'Tie::File', 'noa.log' or die $!;
...
untie @linearr;

    [download]

    You still might want to tweak the internals of the loop.

    -- Ken

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom