Como en Perl obtener un número aleatorio de N y M

La tarea. En Perl se necesita obtener un número aleatorio entero entre N y M. Por ejemplo, es necesario obtener el número de 1 hasta 6 como si lanzar la игральную hueso.

Para hacer eso, debe utilizar la función rand().

He aquí un ejemplo de código que muestra el número aleatorio de 1(ambos inclusive) hasta 6 (también ambos inclusive):

▶ Run
#!/usr/bin/perl

my $number = 1 + int(rand(6));

print $number;
  • rand(6) devuelve un número fraccionario de 0 (ambos inclusive), hasta 6 (pero no incluyendo el número de 6).
  • int(rand(6)) devolverá un número entero de 0 hasta 5
  • porque queremos obtener un número entero a partir de 1 al resultado de la int(rand(6)) es necesario agregar 1

En general, si queremos obtener un número aleatorio entero de $n hasta $m, es necesario escribir:

▶ Run
#!/usr/bin/perl

my $n = 1;
my $m = 6;

my $number = $n + int(rand( $m - $n + 1 ));
print $number;

Temas relacionados

Otros articulos