Come in Perl ottenere un numero casuale da N a M

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
• perché vogliamo ottenere un numero intero a partire dal 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;

• La funzione rand() in Perl

• Come fare riferimento a un elemento di un array in Perl
• Come ottenere l'hash SHA256 in Perl
• Perl il messaggio di errore "Do you need to predeclare say?"
• Come ottenere il numero di Pi in Perl
• L'operatore = (spessore virgola) in Perl