ランダム表示文字について

質問

if ( open( IN,"hoge.txt" ) ) {
　　@line = <IN>;
　　close( IN );
} else {
　　exit;
}

$random1 = @line[rand(@line)];
$random2 = @line[rand(@line)];
$randam3 = @line[rand(@line)];

テキストファイルから1行文字をランダムに表示するプログラムを書き実行できたのですが、このままだとrandom1,2,3の変数に同じものが入ってしまう可能性があります。
これで全て違うものが入るようなプログラムを書きたいのですが、そのようなことは可能でしょうか？

回答No.1

arcsin · ベストアンサー

if ( open( IN,"hoge.txt" ) ) {
　　@line = <IN>;
　　close( IN );
} else {
　　exit;
}

splice()関数というのが使って実現してみました。
splice(@line, 5, 1) とすれば、@line,の５番目の１個分の要素を削除することを意味します。そしてこの関数は取り除かれた部分のリストを返します。
こちらで、勝手ながら$randam1等を$randam[1]と配列にしてしまえば、

for($i=1; $i<=3; $i++){

my $n = rand(@line);#乱数

$random[$i] = splice(@line,$n,1);

}

forループ使わないで、runner_h_aさんのソースの通りランダムに取得する行が３つくらいで少ない場合は、

$random1 = splice(@line,rand(@line),1);
$random2 = splice(@line,rand(@line),1);
$randam3 = splice(@line,rand(@line),1);

でいけると思いますが、動作確認はしてません。

お礼

すみません、返事が遅くなってしまいました。
ちょっと動作確認してみますね、ありがとうございます。