Store value (strings or numbers) into an array after performing while loop

Question

I have a while loop below:

while (<>)
{
    my $line = $_;
    if ($line =~ m/ERROR 0x/)
    {
        $error_found +=1;
    }
}

After while loop finished, i will match somethings like "ERROR..." and i wanna store them into an array or list or hash. How can i do this?

Borodin · Accepted Answer · 2013-02-18 10:47:16Z

2

Just push the data into an array.

my @errors;
while (<>)
{
    my $line = $_;
    if ($line =~ m/ERROR 0x/)
    {
        push @errors, $line;
    }
}

Clean things up a little:

my @errors;
while (my $line = <>)
{
    if ($line =~ /ERROR 0x/)
    {
        push @errors, $line;
    }
}

Or maybe even

my @errors;
while (<>)
{
    if (/ERROR 0x/)
    {
        push @errors, $_;
    }
}

Finally, realize that grep would do great here:

my @errors = grep { /ERROR 0x/ } <>;

Borodin

127k9 gold badges72 silver badges146 bronze badges

answered Feb 18, 2013 at 7:53

ikegami

391k17 gold badges291 silver badges555 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

There is a typo in the third example, it sould be $_ instead of $line.

@M42, Thanks to Borodin for fixing it.

ikegami · Accepted Answer · 2013-02-18 07:48:50Z

0

my @arr;
while (<>)
{
    my $line = $_;
    if ($line =~ m/ERROR 0x/)
    {
        push(@arr,$line) ;
    }
}

print "$_\n" for @arr;

ikegami

391k17 gold badges291 silver badges555 bronze badges

answered Feb 18, 2013 at 7:32

Vijay

67.7k94 gold badges238 silver badges327 bronze badges