Perlコーディング初心者質問スレ Part 38

[0094 nobodyさん 04/10/13 15:22:33 ID:???]

>>86
@outにランダムな数値を出力。

@in = (1 ..100);
@out = ();
srand;
foreach (@in) {
　　my $r = int rand (@in + 1);
　　push(@out, $in[$r]);
　　$out[$r] = $_;
}