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

How can I make this shorter? 
my $a = 0;
my $b = 0;
my $c = 0;

[download]
Can I do this?
my ($a,$b,$c) = 0;

Replies are listed 'Best First'.
Re: Shorten initializers
by thelenm (Vicar) on Jun 26, 2003 at 18:38 UTC

    You can't do it quite like that, but you could do either of these:

    my ($foo, $bar, $baz) = (0, 0, 0);
my ($foo, $bar, $baz) = (0)x3;

    [download]

    -- Mike

    --
    just,my${.02}

[reply]
[d/l]
      Thanks to everyone!
[reply]
Re: Shorten initializers
by Zaxo (Archbishop) on Jun 26, 2003 at 18:39 UTC

    What you have is correct syntax, but it only initializes $a. Try: my ($a,$b,$c) = (0) x 3; or my ($a,$b,$c) = (0, 0, 0); Please avoid $a and $b as variable names, that will interfere with sort.

    After Compline,
    Zaxo

[reply]
[d/l]
[select]
Re: Shorten initializers
by fglock (Vicar) on Jun 26, 2003 at 18:38 UTC 
    my ($a, $b, $c) = (0) x 3;
print "$a - $b - $c";

    [download]

    update:

    $_=0 for my($a,$b,$c);
[reply]
[d/l]
[select]
Re: Shorten initializers
by antirice (Priest) on Jun 26, 2003 at 19:27 UTC

    In the spirit of TMTOWTDI:

    my $a = my $b = my $c = 0;

    [download]

    antirice    
    The first rule of Perl club is - use Perl
    The     ith rule of Perl club is - follow rule i - 1 for i > 1

[reply]
[d/l]
      Sorry, but I saw your post, and started humming...

      My-my-my-my (U can't touch this) music hits me so hard Makes me say,"oh my lord thank you for blessing me

      Mc Hammer Lyrics
[reply]

Back to Seekers of Perl Wisdom