Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: Very curious Problem...

by LanX (Bishop)
on Jan 23, 2013 at 09:06 UTC ( #1014862=note: print w/replies, xml ) Need Help??

in reply to 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



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>;

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 $_?
      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.

      if your sub uses $_ you should  local $_;
Re^2: Very curious Problem...
by anaconda_wly (Scribe) on Jan 23, 2013 at 09:18 UTC
    thank you both!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1014862]
What's the matter? Cat got your tongue?...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (7)
As of 2018-06-20 14:32 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (116 votes). Check out past polls.