Linie sursă (tst21.pl)

Comentarii

# collect the random numbers

Comentariu

$count = 1;

Iniţializare contor

while ($count <= 100) {

Început buclă while.

      $randnum = int( rand(10) ) + 1;

Se foloseşte funcţia rand (din biblioteca Perl) pentru a se genera numere aleatoare în intervalul 0..9. Selecţia intervalului se face prin valoarea variabilei 10.

      $randtotal[$randnum] += 1;

Se crează masivul prin simpla atribuire a fiecarui element. De fapt aici se crează direct histograma (De fapt, array-ul memorează de câte ori a apărut fiecare număr.).

      $count++;

se incrementează contorul.

}

Aici se termină bucla de generare a histogramei.

# print the total of each number
$count = 1;
print ("Total for each number:\n");
while ($count <= 10) {
      print ("\tnumber $count: $randtotal[$count]\n");
      $count++;
}

Buclă pentru tipărirea array-ului astfel creat.