Re^5: two dice question

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]

Comment on Re^5: two dice question Download Code

Replies are listed 'Best First'.
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]