my $item_min_num = '10';
my $item_max_num = '50';
randomRange($item_min_num, $item_max_num);
sub randomRange {
my $num1 = shift;
my $num2 = shift;
return int( (rand() * ($num2 - $num1 + 1)) + $num1 );
}
もっと簡単にすると
2009年02月27日
PERLで範囲指定でその範囲のランダムを発生
randomRange(最小数字, 最大数字)
my $item_min_num = '10';
my $item_max_num = '50';
randomRange($item_min_num, $item_max_num);
sub randomRange {
my $num1 = shift;
my $num2 = shift;
return int( (rand() * ($num2 - $num1 + 1)) + $num1 );
}
もっと簡単にすると
my $item_min_num = '10';
my $item_max_num = '50';
randomRange($item_min_num, $item_max_num);
sub randomRange {
my $num1 = shift;
my $num2 = shift;
return int( (rand() * ($num2 - $num1 + 1)) + $num1 );
}
もっと簡単にすると
