誰得。正規表現で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///;の…

cp -r ...のようなことができるため重宝する。 しかし、現行バージョン(0.38)では@EXPORT_OKにrcopy_globが入っていないため、この関数がちょっとだけ使いにくい。なぜだ。頻繁に呼ぶときはとりあえずこうしてごまかそう。 use File::Copy::Recursive qw(...…