Perl コーディング初心者質問コーナー Part26

[0499 nobodyさん 03/08/05 22:25 ID:LRtAIpMc]

srand(time|$$);
my $et = int(rand(9));
if($et == 3){
srand(time|$$);
$et =int(rand(2)) ;
if($et == 0) {
�@
}else{
�A
だと、全部�@になります。
２つ目の srand(time|$$); を無くすと、
正常になりますが、どうしてでしょうか？