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 );
}

もっと簡単にすると

print randomRange (10,20);

sub randomRange {
  my ($num1,$num2) = @_;
  return int(rand($num2-$num1+1)+$num1);
}


ラベル:乱数 ランダム
posted by wans at 16:43| Comment(0) | perl | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。