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

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://100933]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2018-05-22 16:21 GMT
Find Nodes?
    Voting Booth?