Re^4: Array size issue

in reply to Re^3: Array size issue
in thread Array size issue

I apologize for not being clear and I do appreciate all the valuable input I get from this community.

Without the print statement I will not be able to debug my code. I want to make sure my array is carrying the proper line/data before attempting to process it. This is what I got after reading all the comments. I think I'm missing a small piece and I can't figure it out.

open my $tailf, "tail -f $logFile |" or die;
while (<$tailf>) {
    chomp;
    my $line = $_;
    if($line =~ m/ on $ipaddress/)
    {
        if (scalar(@matches) <= 2){
            push(@matches, $line);
        }        
        else {
            last;
        }
    }
}

foreach $line (@matches){
     print "$line\n";
}
        
close $tailf;
[download]

Comment on Re^4: Array size issue Download Code

Replies are listed 'Best First'.
Re^5: Array size issue by blue_cowdawg (Monsignor) on Oct 15, 2012 at 20:43 UTC
myself I'd rewrite two of your "ifs." `next unless ($line =~ m@on $ipaddress@); last if scalar(@matches) >= 2;` [download] At least to my eye that's more readable. Peter L. Berghold -- Unix Professional Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg	[reply] [d/l]

In Section Seekers of Perl Wisdom