Re: scoping problem?

[Corion]

in reply to scoping problem?

Are you sure you're modifying / running the same Perl script? Because for me, the following works:

use strict;

my $username;
my $color;

while(<DATA>){
    chomp; s/"//g;
    ($username,$color) = (split /,/,$_)[2,3];
    if ("agag" =~ m/($username)/){
        print STDOUT "here is the username: $username\n"
    }
}
__DATA__
"ADELMAN","John","adad","Ray"
"AGAN","John","agag","Aditya"
"AHMED","John","ahah","Conor"

... and outputs:

here is the username: agag

[ww]

And are you sure you're getting the contents of the text file to <>? Bad path to text file? Wrong name of text file? Failure to test open ($FH, "<  $text_file") or die "Can't open $text_file, $! ? or something similar?