Udregn tilfældigt tal

Kig her:

http://www.serve.com/wizjd/perl/index.html

Snowball

Det må være disse linjer du mener:

srand;
$number = rand(100);
$number = substr($number,0,2);

Hvad laver den sidste linje; hvad er nullet og totallet??

Aner det ikke. Det var bare en side jeg fandt. Det virker måske ikke ???

Snowball

linie 2, tager de to første tal før punktum.
Når du laver en rand som her, får du et laaaaaaaaaaaaangt decimaltal. linie to, afskærer alt efter de to første cifre.
Det betyder at HVIS $number <= 0, så får du 5. osv. så du kunne lave et split på . og så bruge det til venstre?
Bare et forslag.
De her par linier skulle gøre det.
srand; $number = rand(155); @a = split(/\./, $number);

/Karl Smart

glemte lige at dit nummer så ligger i variable $a[0]
Det kan du jo bare lave om på med en
$number = $a[0];

/Kong Gulerod