note
LanX
<I>> Why $_ is changed??</I><P><P>
<c>while(<STATUS>)</c> sets <c>$_</c> (see [doc://perlop] ¹) and <c>$_</c> is global.<P><P>
Maybe you rather wanna use:<P><P>
<c> while (my $line = <STATUS>)</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-708738">
<p>Cheers Rolf
</div></div><P><P>
<H5> UPDATE<P></H5><P>
¹) <blockquote>
The following lines are equivalent:<P><P>
<c>
while (defined($_ = <STDIN>)) { print; }
while ($_ = <STDIN>) { print; }
while (<STDIN>) { print; }
for (;<STDIN>;) { print; }
print while defined($_ = <STDIN>);
print while ($_ = <STDIN>);
print while <STDIN>;
</c>
</blockquote>
1014860
1014860