note
tobyink
<p>As I said, all the OP's examples use the global <c>$_</c> but some Perl control structures [doc://local|localize] that variable.</p>
<p>The same effect is illustrated here using global <c>$::x</c>...</p>
<code>
use warnings;
use strict;
sub abc()
{
$::x = 'x';
}
foreach $::x (1..2)
{
print "Before:$::x\n";
abc();
print "After:$::x\n";
}
print "\$::x = $::x\n"; # warning for uninitialized value $x (global scope)
abc();
print "\$::x = $::x\n"; # prints $x = x
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-757127">
<small><small>
<tt>perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
</tt></small></small>
</div></div>
1005679
1005754