#yomikomi.txtを@nyuuryokuという配列にする open (KENSAKU,"<yomikomi.txt"); $count = 0; while ($nyuuryoku[$count] = <KENSAKU>){ chop $nyuuryoku[$count]; $count = $count + 1; } close (KENSAKU);
#とりあえず、ランダムで要素を一つ選ぶ srand(); $kazu1 = int (rand($count));
#もうひとつ、ランダムで要素を選ぶ srand(); rand; $kazu2 = int (rand($count));
#選んだ要素(kazu1 と kazu2)が同じならkazu2を選びなおす while (kazu1 == $kazu2){ rand; $kazu2 = int (rand($count)); }