Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

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 }

Comment on Re: Loops and my
Select or Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (10)
As of 2016-02-08 15:55 GMT
Find Nodes?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

    Results (276 votes), past polls