Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: File::Find and $_ in the wanted sub

by chuckbutler (Monsignor)
on Jun 04, 2010 at 20:31 UTC ( [id://843206]=note: print w/replies, xml ) Need Help??


in reply to File::Find and $_ in the wanted sub

Localizing $_ is an option, also: 


#!/usr/bin/perl

use File::Find;

#find (\&testy, ".");
$_ = 'Main Line...';
testy ('i am a nice parameter');

print "$_\n";

sub testy {

local $_ = shift;  #Localizing it is cool, also.....

print "$_\n" ;

}

__END__

~Output~~
i am a nice parameter
Main Line...

[download]

Good luck. -c

PS: The first parameter passed to a sub is in the first element of the list @_, $_[0], which is NOT the same a $_.

Replies are listed 'Best First'.
Re^2: File::Find and $_ in the wanted sub
by ikegami (Patriarch) on Jun 06, 2010 at 19:15 UTC
    I used for since for and local *_ are more thorough than local $_. One problem case: 
    for ($tied) {
   ...
   local $_ = 'i am a nice parameter';
   testy();
   ...
}

    [download]

    No problem: 

    for ($tied) {
   ...
   local *_;
   $_ = 'i am a nice parameter';
   testy();
   ...
}

    [download]

    No problem: 

    for ($tied) {
   ...
   testy() for 'i am a nice parameter';
   ...
}

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://843206]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others lurking in the Monastery: (2)
As of 2024-04-24 17:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found