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

'Development > Perl' 카테고리의 다른 글

perl에서 특정 범위 랜덤 생성  (1) 2009.01.22
strawberry perl에 DBD::mysql CPAN모듈 설치  (0) 2009.01.15
  1. BlogIcon h0ney 2009.01.22 14:39 신고

    print baserand(10,20);

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