が必要になったので、再発明感がギラギラだったけどやってみた。 まあ記録的にメモしておく。 use Scalar::Util qw/ looks_like_number /; sub range_rand { my ($max, $min) = @_; if ( looks_like_number($max) and looks_like_number($min) ) { if ($max …