Re: Very curious Problem...

> Why $_ is changed??

while(<STATUS>) sets $_ (see perlop š) and $_ is global.

Maybe you rather wanna use:

while (my $line = <STATUS>)

Cheers Rolf

UPDATE

š)

The following lines are equivalent:

           while (defined($_ = <STDIN>)) { print; }
           while ($_ = <STDIN>) { print; }
           while (<STDIN>) { print; }
           for (;<STDIN>;) { print; }
           print while defined($_ = <STDIN>);
           print while ($_ = <STDIN>);
           print while <STDIN>;
[download]

Comment on Re: Very curious Problem... Select or Download Code

Replies are listed 'Best First'.
Re^2: Very curious Problem... by anaconda_wly (Scribe) on Jan 23, 2013 at 09:38 UTC
Is it always unsafe when return back to the "upper" level loop in perl, since the inner looper may probably change the global $_?	[reply]
Re^3: Very curious Problem... (avoiding $_) by LanX (Saint) on Jan 23, 2013 at 10:17 UTC
Yes after doing complicated things like invoking a subroutine $_ is pretty unsafe. š) Not only subs, there are plenty of commands which have a side effect on $_. $_ is only a shortcut with limited use in small situations that you can completely control, but over time code grows in unexpected ways. Better use named lexical variables in production code, especially when it is maintained by various people. ˛) Global variables are generally more critical and should only be use for good reasons. I can strongly recommend you getting a copy of Perl Best Practices for good discussions of such issues. It will certainly improve your Perl skills. Cheers Rolf š) for completeness you could use `local $_` (or even `my $_` in recent Perls) within the subroutine, but this doesn't really solve the general problem of $_'s limited radius. ˛) Think of $_ as the word `it` in human language, the longer a conversation only using "it", the unclearer what it (sic) is supposed to mean.	[reply] [d/l] [select]
Re^3: Very curious Problem... by Anonymous Monk on Jan 23, 2013 at 10:21 UTC
if your sub uses $_ you should `local $_;`	[reply] [d/l]
Re^2: Very curious Problem... by anaconda_wly (Scribe) on Jan 23, 2013 at 09:18 UTC
thank you both!	[reply]