Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: Loops and my

by mrbbking (Hermit)
on May 18, 2002 at 12:56 UTC ( #167496=note: print w/replies, xml ) Need Help??

in reply to Loops and my

Can I undef ($v1, $v2, $vX); or does this only affect the first value in the array?
If it's an array, then you can just do @array = (); to undefine it. If they're really scalars, then you can shortcut it a little bit with $v1 = $v2 = $vX = undef;


#!/usr/bin/perl -w use strict; print "\nWith scalars..\n"; my ($var1, $var2, $var3) = (1, 2, 3); foreach( $var1, $var2, $var3 ){ print "$_, "; } print "\nundef them...\n"; $var1 = $var2 = $var3 = undef; foreach( $var1, $var2, $var3 ){ print "$_, "; # -w will complain about this. } print "\nWith an array..\n"; my @stuff = qw(a b c); foreach( @stuff ){ print "$_, "; } print "\nundef it...\n"; @stuff = (); foreach( @stuff ){ print "$_, "; # -w won't complain about this, because # @stuff is empty, so this line does not # execute }

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (6)
As of 2017-06-25 17:41 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (568 votes). Check out past polls.