Nathan Wiger <[EMAIL PROTECTED]> wrote:
[...]
> match; # all defaults (pattern is /\w+/?)
> match /pat/;# match $_
> match /pat/, $str; # match $str
> match /pat/, @strs; # match any of @strs
>
> subst; # like s///, pretty useless :-)
> subst /pat
# I define
my @dice =
(
# typepips on first die pips on second die tally
('normal',(1, 2, 3, 4, 5, 6), (1, 2, 3, 4, 5, 6), 0 xx 14),
('Sicherman', (1, 3, 4, 5, 6, 8), (1, 2, 2, 3, 3, 4), 0 xx 14)
);
# and later do
@dice[1;3;2]++;
# and get
# Cannot resolve caller post
> # I define
> my @dice =
> (
> # typepips on first die pips on second die tally
> ('normal',(1, 2, 3, 4, 5, 6), (1, 2, 3, 4, 5, 6), 0 xx 14),
> ('Sicherman', (1, 3, 4, 5, 6, 8), (1, 2, 2, 3, 3, 4), 0 xx 14)
> );
> # and later do
> @dice[1;3;2]++;
> # and get
> # Cann
If $x is set to "01.02.03"
(Not using normal message quoting to make message shorter.
[1] ToddAndMargo[2] Norman Gaywood [3] Mark Senn)
DOING $x ~~ s:global/"0"(\d)/ $0 /; [1]
SETS $x TO"1 . 2 . 3"
