Resolved: Perl: Substitution to 'foreach' local variable changed the elements of array used for 'foreach' processing

Question:

Code Snippet:

use File::Basename;
my @powerArray;
my $powerLoc = "/home/yuerki/10.12/proj";
@powerArray = glob("$powerLoc/*") if (-e $powerLoc);
print "FIRST: @powerArray is powerArray\n";
foreach my $powerNum (@powerArray) {
    $powerNum= basename ($powerNum);
    if($powerNum =~ /power/)
    {
        $powerNum =~ s/power//g;
        $powerNum  =~ s/\n//g;
        $powerNum =~ s/^\s+|\s+$//g;
        push(@powerList,"$powerNum") if ($powerNum =~ /^\d+$/);
    }
}
print "SECOND: @powerArray is powerArray\n";

Content inside “/home/yuerki/10.12/proj/” is : power1, power2, power3, power4, power5
Output:
FIRST: /home/yuerki/10.12/proj/power1 /home/yuerki/10.12/proj/power2 /home/yuerki/10.12/proj/power3 /home/yuerki/10.12/proj/power4 /home/yuerki/10.12/proj/power5 is powerArray
Second: 1 2 3 4 5 is powerArray
Question/Doubt: Why “SECOND: 1 2 3 4 5 is powerArray” has come in output? I was expecting it to be “SECOND: /home/yuerki/10.12/proj/power1 /home/yuerki/10.12/proj/power2 /home/yuerki/10.12/proj/power3 /home/yuerki/10.12/proj/power4 /home/yuerki/10.12/proj/power5” because we made no changes in @powerArray, and only in $powerNum?
Can anyone please explain? Also, how can i avoid the substitution changes in @powerArray? As I need to use this global array at other places as well

Answer:

Make modification like below:

...
@powerArray = glob("$powerLoc/*") if (-e $powerLoc);
print "FIRST: @powerArray is powerArray\n";
foreach my $element (@powerArray) {
    my $powerNum = $element;
    $powerNum= basename($powerNum);
    if($powerNum =~ /power/){
...

Hope this helps.

If you have better answer, please add a comment about this, thank you!

Resolved: Perl: Substitution to ‘foreach’ local variable changed the elements of array used for ‘foreach’ processing

Resolved: deserializing XML list with jackson

Resolved: When converting markdown to latex with pandoc, how can I end a block before the next heading?

Resolved: TYPO3 SQL error: Field ‘tx_imagezoom_set’ doesn’t have a default value

Leave A Reply