랜덤1 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 ); } 2009. 1. 22. 이전 1 다음