Re: How to store matched $1 values one by one to array?

[kcott]

G'day rekhasri,

Welcome to the monastery.

Take a look at the push function.

I can't see anywhere in your code where you're adding anything to an array. However, what you've written is rather difficult to read: take a look at Markup in the Monastery.

You probably want something like:

my @agent_ids; # outside logfile reading loop
...
if (...) {
    ...
    push @agent_ids, $agent_id;
}

[rekhasri]

I forgot to add that array line in my code. Now I have added that line in my first question. Sorry for the inconvenience.

[kcott]

Well, it's not an inconvenience, but that does now highlight where you're going wrong.

Declare your array outside of whatever loop iterates over your logfile and replace my @array=$agent_id; with a push statement, as I indicated.

[rekhasri]

 if($line =~ /^.*:agent_id=>(.+?),/){ # Calls count based on call type

            my $agent_value=$1;
            my $agent_value=~s/\"//g;
            push @agent_ids, $agent_value;
            print Dumper\@agent_ids;
            
        }

Before while loop I have declared the @agent_ids and then added the push function with array and scalar variable.

While printing the @agent_ids variable it printed the undef in array.

I don't know why it is printing the undef values instead of exact values.