I think it's a pretty weak reason to give up on a language because you were using a global variable and expecting it to automatically be treated as a local variable within your function.
As others have mentioned, you are using a global variable ($_) inside a function. This is generally considered a bad practice.
The standard perl idiom of getting your function arguments via shift would make this a non-issue.
Re:Perl: When DWIM Doesn't
by pavelkaroukin on Tuesday January 31, 2012 @01:01PM
(#3534364)
This is a feature, not a bug. And this is not _requirement_, it is up to you to use it. You are always free to pass parameters the way it would not happen..
This is not much different than mutating a global variable inside a function.
I would write your code as:
foo($_) foreach @bar;
sub foo {
my $var = shift;
$var =~ s/foo/bar/;
print $var;
}
foo foreach @bar;
sub foo {
my $var = $_;
$var =~ s/foo/bar/;
print $var;
}
foo foreach @bar;
sub foo {
my $_ = $_;
s/foo/bar/;
print;
}You're funny. If this really pushed you over the edge, you were born -on- the edge, and didn't give Perl a fair shake.
Joey's example is bad (or, at best, fragile) Perl, but he's also written a fair amount of useful and popular code in Perl too.
Having to audit code for this kind of thing is a real pain. I still maintain existing perl projects, but won't be starting any new ones.