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

[rekhasri]

in reply to Re^3: How to store matched $1 values one by one to array?
in thread How to store matched $1 values one by one to array?

 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.

[trizen]

$agent_value is declared two times.
The substitution should not be used with my.
Just remove the second lexical declaration and the code works.

Also, I recommend to use strict and warnings.

'warnings' says: "my" variable $agent_value masks earlier declaration in same scope at ...

[choroba]

Remove the second my before $agent_value. It resets its value. Also, turn on warnings to be warned against the practice of redeclaring a variable.