Variable Scoping Issue in perl

Question

I am not sure what is going on with this code, I believe it has something to do with how my variables are scoped, but changing them from "my" to "our" doesn't do anything. The error comes in the second if block where I try to get it to print $question1, perl says that "$question1 requires a specific package name". The code there is just a test for what I need to do later in the program. I just need the $question variables to be able to be used throughout my program.

foreach my $line ( split /:/, $test ) {
    my $match1 = "1";
    my $match2 = "2";

    if ( $line =~ /$match1/ ) {
        my $question1 = $line;
        print "$question1\n";
    }

    if ( $line =~ /$match2/ ) {
        my $question2 = $line;
        print "$question2\n";
        print "$question1\n";
    }
}

Have you thought this through? What value of $question1 do you expect to be printed in case $match1 doesn't match and $match2 does? — reinierpost
– reinierpost, Commented Oct 18, 2014 at 20:06

ruakh · Accepted Answer · 2014-10-18 18:33:30Z

2

To increase the scope of a variable beyond a certain block, you need to move its declaration outside of that block, like so:

my ($question1, $question2);      # both are now initialized to undef

foreach my $line (split /:/, $test) {
    my $match1 = "1";
    my $match2 = "2";

    if ($line =~ /$match1/) {
        $question1 = $line;       # NOT declaring with 'my', JUST assigning
    }

    if ($line =~ /$match2/) {
        $question2 = $line;       # NOT declaring with 'my', JUST assigning
    }
}

answered Oct 18, 2014 at 18:33

ruakh

185k29 gold badges292 silver badges324 bronze badges

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

Collectives™ on Stack Overflow

Variable Scoping Issue in perl

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related