Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

(ichimunki) Re: Need some help with a dodgy variable

by ichimunki (Priest)
on Jul 30, 2001 at 23:30 UTC ( #100933=note: print w/ replies, xml ) Need Help??

in reply to Variable Scope

If you are using multiple files in your script and you assume that "use strict" from the main script will automatically affect all the other scripts, you will run afoul of this scoping issue. The scripts below will exhibit different behavior with respect to globals when strict and my are used than when strict and my are not used. If we really want to use $z in our main scope as a global, we should either pass a reference to it in our sub call (and modify it in place), or set its value based on the return value of our sub call. Or we could not use strict, but we should use strict and figure out a better way to handle our data than indiscriminate use of globals.

#!/usr/bin/perl -w #this is use strict; #comment out require ''; my $z = 0; #comment out, we could also leave this # undef, but that generates a bunch of warnings for my $x (1..5) { my $y = multiply( $x ); print "$x * 3 : $y : $z\n"; } _______________________________________ #this is sub multiply { $this = shift; $z = $this * 3; } 1;

Comment on (ichimunki) Re: Need some help with a dodgy variable
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (9)
As of 2015-12-02 07:30 GMT
Find Nodes?
    Voting Booth?

    My keyboard shows this many letters:

    Results (35 votes), past polls