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

Re^4: Array size issue

by hmb104 (Sexton)
on Oct 15, 2012 at 19:03 UTC ( #999158=note: print w/replies, xml ) Need Help??

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;

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;
    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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://999158]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2018-06-17 23:09 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (107 votes). Check out past polls.