Ver Mensaje Individual
  #2 (permalink)  
Antiguo 17/07/2014, 18:38
jferrero
Colaborador
 
Fecha de Ingreso: mayo-2006
Ubicación: Valladolid
Mensajes: 525
Antigüedad: 18 años, 7 meses
Puntos: 11
Respuesta: generar claves aleatorias de 10 digitos con perl

Lo puedes hacer con un programa muy corto. Incluso desde la propia línea de comandos:

Código Perl:
Ver original
  1. perl -le '@c = (1 .. 9, "A" .. "F"); print join "", map { $c[rand @c] } 1 .. 10'
Primero creamos el array @c, y luego ejecutamos el map{} diez veces. En cada ocasión generamos un número al azar entre 0 (incluido) y el número de elementos que tiene @c (excluido). Ese número lo tomamos como índice dentro @c para obtener un carácter. La lista de caracteres aleatorios se envían a join(), que los une juntos (no hay delimitador de unión), y vemos el resultado en pantalla con el print().

Saludos.
__________________
JF^D Perl Programming en Español

Última edición por jferrero; 17/07/2014 a las 18:45