perl-language-es

my @letters = ( 'a' .. 'z' );
# English ascii-bet
print $letters[ rand @letters ] for 1 .. 5; # prints 5 letters at random
Cómo funciona
• rand EXPR espera un valor escalar, por lo que @letters se evalúa en un contexto escalar
• Una matriz en contexto escalar devuelve el número de elementos que contiene (26 en este
caso)
• rand 26 devuelve un número fraccionario aleatorio en el intervalo 0 ≤ VALUE < 26 . (Nunca
puede ser 26 )
• Los índices de matriz son siempre enteros, por lo que $letters[rand @letters] ≡ $letters[int
rand @letters]
• Las matrices de Perl están indexadas en cero, por lo que $array[rand @array] devuelve
$array[0] , $array[$#array] o un elemento intermedio
(El mismo principio se aplica a los hashes)
my %colors = ( red => 0xFF0000,
green => 0x00FF00,
blue => 0x0000FF,
);
print ( values %colors )[rand keys %colors];
Lea Aleatoriedad en línea: https://riptutorial.com/es/perl/topic/6905/aleatoriedad
https://riptutorial.com/es/home 6