Re^3: two dice question

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)

Comment on Re^3: two dice question Download Code

Replies are listed 'Best First'.
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
Ah, but then your dice have leading spaces in front of them. :) `my @dice = map { (my $t = $_) =~ s/^\s+(?=\S)//gm; $t } split( /^--\n/ +m, <<'EOT' ); ... EOT` [download]	[reply] [d/l]
Re^6: two dice question by ikegami (Patriarch) on Jul 17, 2007 at 17:54 UTC
The OP had the spaces too, so I presume they're supposed to be there. What's the purpose of `(?=\S)` in your regexp?	[reply] [d/l]
Re^7: two dice question by Fletch (Bishop) on Jul 17, 2007 at 19:37 UTC