Como em Perl para obter um número aleatório de N até M

Tarefa. Em Perl programa precisa obter um número aleatório inteiro de N até a M. Por exemplo, a necessidade de obter o número de 1 até 6 , como se estivesse a jogar игральную osso.

Para fazer isso você precisa usar a função rand().

Aqui está um exemplo de código que exibirá um número aleatório entre 1(inclusive) até 6 (também, inclusive):

▶ Run
#!/usr/bin/perl

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

print $number;
  • rand(6) retornará o número fracionário do 0 (inclusive), até 6 (mas não incluindo o número de 6).
  • int(rand(6)) retornará um número inteiro de 0 a 5
  • porque nós precisamos de obter um número inteiro a partir de 1 ao resultado int(rand(6)) precisa adicionar 1

Em geral, se quisermos obter um número aleatório inteiro de $n até $m, então você precisa escrever:

▶ Run
#!/usr/bin/perl

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

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

Temas relacionados

Outros artigos