Re: two dice question

my @dicearray = qw/$dice1 $dice2 $dice3 $dice4 $dice5 $dice6/;
[download]

means

my @dicearray = ('$dice1', '$dice2', '$dice3', '$dice4', '$dice5', '$d
+ice6');
[download]

You want

my @dicearray = ($dice1, $dice2, $dice3, $dice4, $dice5, $dice6);
[download]

By the way, you can skip the intermediate vars entirely:

my @dicearray = (
   <<done,
    ##############
    #            #
    #            #
    #      #     #
    #            #
    #            #
    ##############
done
  <<done,
    ##############
    #            #
    #            #
    #   #   #    #
    #            #
    #            #
    ##############
done
   ...
);
[download]

Comment on Re: two dice question Select or Download Code

Replies are listed 'Best First'.
Re^2: two dice question by ysth (Canon) on Jul 17, 2007 at 06:09 UTC
By the way, you can skip the intermediate vars entirely: Better (IMO): `my @dicearray = ( <<die1, <<die2, <<die3, <<die4, <<die5, <<die6 ); ############## # # # # # # # # # # # ############## die1 ############## # # # # # # # # # # # # ############## die2 ...` [download]	[reply] [d/l]
Re^3: two dice question by Fletch (Bishop) on Jul 17, 2007 at 17:05 UTC
Or (with modular help) skip the multiple heredocs: `my $dice = YAML::Syck::Load( <<'EOT' ); --- - \|- --------- \| \| \| # \| \| \| --------- - \|- --------- \| # \| \| \| \| # \| --------- - \|- --------- \| # \| \| # \| \| # \| --------- - \|- --------- \| # # \| \| \| \| # # \| --------- - \|- --------- \| # # \| \| # \| \| # # \| --------- - \|- --------- \| # # \| \| # # \| \| # # \| --------- EOT print $dice->[int(rand(@{$dice}))], "\n";` [download] (Using Anonymonk's better looking (IMHO) dice from below)	[reply] [d/l]
Re^4: two dice question by ikegami (Patriarch) on Jul 17, 2007 at 17:12 UTC
No need to learn and load a complex module for that! `my @dice = split /^--\n/m, <<'EOT'; --------- \| \| \| # \| \| \| --------- -- --------- \| # \| \| \| \| # \| --------- -- ... -- --------- \| # # \| \| # # \| \| # # \| --------- EOT` [download]	[reply] [d/l]
Re^5: two dice question by Fletch (Bishop) on Jul 17, 2007 at 17:18 UTC
Re^6: two dice question by ikegami (Patriarch) on Jul 17, 2007 at 17:54 UTC
Some notes below your chosen depth have not been shown here
Re^3: two dice question by TGI (Parson) on Jul 17, 2007 at 17:19 UTC
I really like that syntax, I didn't know you could do that, but it looks good and reads well! I'd stick a 'no value yet' die into the first position in the array. For these graphic representations, it is often useful to have an image to represent "unknown". And, in this case, placing the unknown at index 0 aligns the die value with the index for the appropriate image. In fact, if an array is not fully populated, but there is a "natural" numerical index, I will often align the elements in the array based on the natural index. If the array becomes 'sparse enough', then I use a hash instead. What constitutes sparse enough depends on a number of issues, like comparative memory usage, etc. `my @dicearray = ( <<unknown_die, <<die1, <<die2, <<die3, <<die4, <<die +5, <<die6 ); ############## # # # ? ? ? ? ? # # # # ? ? ? ? ? # # # ############## unknown_die ############## # # # # # # # # # # # ############## die1 ############## # # # # # # # # # # # # ############## die2 ... print $dicearray[$die_value]; # no pesky manipulation of the index he +re!` [download] TGI says moo	[reply] [d/l]