Il compito. In Perl programma, è necessario ottenere un numero casuale da N a M.
Ad esempio, è necessario ottenere un numero da 1 a 6 come se lanciamo un dado.
Per fare questo è necessario utilizzare la funzione rand().
Ecco un esempio di codice che visualizza un numero casuale da 1(compreso)
a 6 (anche compreso):
#!/usr/bin/perl
my $number = 1 + int(rand(6));
print $number;
rand(6) restituirà un numero frazionario di 0 (compreso), fino 6 (ma non tra cui il numero di 6).
int(rand(6)) restituisce un numero intero da 0 a 5
1 al risultato int(rand(6)) bisogno di aggiungere 1
In generale, se vogliamo ottenere un numero casuale da $n a $m, allora avete bisogno di
scrivere:
#!/usr/bin/perl
my $n = 1;
my $m = 6;
my $number = $n + int(rand( $m - $n + 1 ));
print $number;