Zufallszahlgenerator

[Andreas Flückiger]

Hallo Jens

Hallo! Ich bastel grade an einem Perl Programm rum, bei dem ich eine Zufallszahl zwischen 1 und 20 und einmal eine zwischen 1 und 6 generieren möchte. (jaja, ein würfel) Kennt da jemand zufällig den Quellcode für sowas? Wär prima, wenn ihr mir ne "sub" posten könntet. Ok, tschüss erstmal.......Jens

print &Zufallszahl(1,20);
print &Zufallszahl(1,6);

sub Zufallszahl
{
srand();
return int(rand($_[1] - $_[0] + 1)) + $_[0];
}

Gruss
Andreas