assigning a value to several vars

sweetblood has asked for the wisdom of the Perl Monks concerning the following question:

This seems like such a trivial thing(and it probably is) but for some reason I'm having trouble with this. What I want to do is preset several variables with the same numeric value. ie:


<pseudo-code>
$len = length(trim($fld));
$min[$i], $max[$i], $emax[$i] = $len if ! defined $min[$i];
</pseudo-code>
[download]

The above does not work of course, but this is the idea. Is there a way to set several variables at once? Thanks!

Comment on assigning a value to several vars Download Code

Replies are listed 'Best First'.
Re: assigning a value to several vars by broquaint (Abbot) on Jan 16, 2004 at 15:55 UTC
You could chain the return value of an assignment e.g `$min[$i] = $max[$i] = $emax[$i] = $len;` [download] Or you could just repeat the value e.g `($min[$i], $max[$i], $emax[$i]) = ($len) x 3;` [download] Update: or as merlyn might have it `$_ = $len for $min[$i], $max[$i], $emax[$i];` [download] See. `perlop` and `perlsyn` for more info. HTH `_________ broquaint`	[reply] [d/l] [select]
Re: Re: assigning a value to several vars by Roy Johnson (Monsignor) on Jan 16, 2004 at 16:05 UTC
Or in this particular case, `$_->[$i] = $len for \@min, \@max, \@emax;` [download] The PerlMonk `tr///` Advocate	[reply] [d/l]
Re: assigning a value to several vars by Abigail-II (Bishop) on Jan 16, 2004 at 15:56 UTC
`$min [$i] = $max [$i] = $emax [$i] = $len; ($min [$i], $max [$i], $emax [$i]) = ($len) x 3; { no strict 'refs'; for my $name (qw /min max emax/) {$$name [$i] = $len} } for my $name (qw /min max emax/) { eval "$name [\$i] = \$len;"; }` [download] Abigail	[reply] [d/l]
Re: assigning a value to several vars by Zaxo (Archbishop) on Jan 16, 2004 at 20:30 UTC
Or, `($min[$i], $max[$i], $emax[$i]) = ($len) x 3 if ! defined $min[$i];` [download] After Compline, Zaxo	[reply] [d/l]