誰得。正規表現で12d3を置換するだけ。 my $dice = "3d4"; $dice =~ s/(\d+)d(\d+)/my $s = $1; $s += int rand $2 for 1 .. $1; $s/ie; print $dice; # ex. 7 ただしfor (foreach)でこっそり$_を使っている。この置換の前後で$_を維持したいときは、s///;の…