Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re^2: scoping problem?

by GrandFather (Sage)
on Dec 07, 2011 at 00:23 UTC ( #942139=note: print w/replies, xml ) Need Help??

in reply to Re: scoping problem?
in thread scoping problem?

I suspect you are still falling foul of blank lines or maybe unexpected line endings (Windows cr/lf line endings on a *nix system for example). The following code may be closer to what you need:

use strict; use warnings; open my $tempOut, '>', 'delme.txt' or die "Can't create temp file: $!\ +n"; print $tempOut <<FILE; "ADELMAN","John","adad","Ray" "AGAN","John","agag","Aditya" "AHMED","John","ahah","Conor" FILE close $tempOut; @ARGV = 'delme.txt'; while(<>){ chomp; s/"//g; my ($username,$color) = (split /,/,$_)[2,3]; next if ! defined $color; print "here is the username: $username\n" if "agag" =~ m/($usernam +e)/; }


here is the username: agag

However you seem to be parsing a CSV file so really you should be using one of the modules designed for that task such as Text::CSV.

Oh, and you really should use warnings in addition to strict!

True laziness is hard work

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://942139]
[erix]: one would think: git clone git://perl5.git.
[LanX]: I have to clone it all ?
[LanX]: urban dictionry blocked
vrk takes a cookie from the platter on the sideboard.

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (10)
As of 2017-04-24 15:26 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (442 votes). Check out past polls.