Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: Re: When is $_ local and when is it not?

by iakobski (Pilgrim)
on Jul 13, 2001 at 17:55 UTC ( #96395=note: print w/replies, xml ) Need Help??

in reply to Re: When is $_ local and when is it not?
in thread When is $_ local and when is it not?

Thanks for the explanation. I guess a more thorough reading of the docs should have sorted this out for me.

However, do you think this is the way it should work? After all you don't expect your variables to suddenly change as you go through a function. I know $_ is a global, but I imagine a lot of people write code like the stuff I was maintaining where there is a call to a sub in the middle of using $_. And then maybe that calls a sub and that calls another one, etc. Then someone comes along one day and puts while(<INPUT>) in one of those subs, all careful with use strict and warnings, but suddenly some bit of code miles away just breaks!

Anyway, I know I'm getting a bit hot under the collar over this, perhaps because I spent about an hour not knowing why my change had broken the whole program. But shouldn't there be some kind of health warning at least over the use of while(<>) since it must be one of the first idioms beginners learn.

I know I'm going to write

local $_; while(<>){ }
from now on!

update No I'm not I'm going to follow jeffa's example! Doh! I might go through and put local in the old "code"/plate of spaghetti that I'm supposed to be maintaining.

-- iakobski

Replies are listed 'Best First'.
(jeffa) 3Re: When is $_ local and when is it not?
by jeffa (Bishop) on Jul 13, 2001 at 18:09 UTC
    ... or better yet, just don't use $_ in such situations. You hit the nail on the head when you mentioned someone coming along and breaking it.
    my $line; while ($line = <>) { # stuff }
    i gonna wash that ambiguity outta my hair . . .


Re: When is $_ local and when is it not?
by Abigail (Deacon) on Jul 13, 2001 at 19:24 UTC
    Yes, I think it should work that way. Then you can write code like:
    sub next_foo { while (<>) { return $. if /^FOO:/ } } while (next_foo) { do_something # with $_ }
    Some people won't like this style. That's fine, you don't have to. Other will like it, and Perl let's you.

    -- Abigail

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://96395]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2021-05-09 13:06 GMT
Find Nodes?
    Voting Booth?
    Perl 7 will be out ...

    Results (100 votes). Check out past polls.