La función srand() en Perl ayuda a la función rand() a generar un valor constante cada vez que se ejecuta el programa.
Esta función srand() usa el mismo parámetro cada vez que se llama a la función rand() para obtener un valor aleatorio constante.
Sintaxis: srand (semilla)
Parámetros:
seed : Es un valor entero.Retorno: Esta función no devuelve ningún valor.
Ejemplo 1:
#!/usr/bin/perl
# Calling the srand() function and
# Printing a random value
srand(5);
print("The first random number is ", rand(), ".\n");
# Calling the srand() function and
# Printing a random value
srand(5);
print("The second random number is ", rand(), ".\n");
# Calling the srand() function and
# Printing a random value
srand(5);
print("The third random number is ", rand(), ".\n");
# Calling the srand() function and
# Printing a random value
srand(5);
print("The fourth random number is ", rand(), ".\n");
Producción:
The first random number is 0.524839579434232. The second random number is 0.524839579434232. The third random number is 0.524839579434232. The fourth random number is 0.524839579434232.
Nota: En el código anterior, se puede ver que el parámetro de la función srand() es el mismo, por eso la función rand() produce el mismo valor aleatorio cada vez que se llama.
Ejemplo 2:
#!/usr/bin/perl
# Calling the srand() function and
# Printing a random value
srand(5);
print("The first random number is ", rand(), ".\n");
# Calling the srand() function and
# Printing a random value
srand(6);
print("The second random number is ", rand(), ".\n");
# Calling the srand() function and
# Printing a random value
srand(7);
print("The third random number is ", rand(), ".\n");
# Calling the srand() function and
# Printing a random value
srand(8);
print("The fourth random number is ", rand(), ".\n");
Producción :
The first random number is 0.524839579434232. The second random number is 0.395641888099821. The third random number is 0.266444196765409. The fourth random number is 0.137246505430998.
Nota: En el código anterior, se puede ver que las funciones srand() tienen un parámetro diferente, por eso la función rand() produce un valor aleatorio diferente cada vez que se llama.
Ejemplo 3:
#!/usr/bin/perl
# Printing a random value without calling the srand() function
print("The first random number is ", rand(), ".\n");
# Printing a random value without calling the srand() function
print("The second random number is ", rand(), ".\n");
# Printing a random value without calling the srand() function
print("The third random number is ", rand(), ".\n");
# Printing a random value without calling the srand() function
print("The fourth random number is ", rand(), ".\n");
Producción :
The first random number is 0.241482914266275. The second random number is 0.821264154368208. The third random number is 0.870625858233449. The fourth random number is 0.012084407123389.
Nota: En el código anterior, se puede ver que las funciones srand() no se usan, por eso la función rand() produjo un valor aleatorio diferente cada vez que se llamó.
Publicación traducida automáticamente
Artículo escrito por Kanchan_Ray y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA