Re^4: two dice question

No need to learn and load a complex module for that!

my @dice = split /^--\n/m, <<'EOT';
  ---------
  |       |
  |   #   |
  |       |
  ---------
--
  ---------
  | #     |
  |       |
  |     # |
  ---------
--
...
--
  ---------
  | #   # |
  | #   # |
  | #   # |
  ---------
EOT
[download]

Comment on Re^4: two dice question Download Code

Replies are listed 'Best First'.
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
Stupid, unnecessary redundancy since `\s+` stops at `\S` and i wasn't really thinking?	[reply] [d/l] [select]