Re: 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"
[download]

... and outputs:

here is the username: agag
[download]

Comment on Re: scoping problem? Select or Download Code

Replies are listed 'Best First'.
Re^2: scoping problem? by ww (Archbishop) on Dec 06, 2011 at 19:55 UTC
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?	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom