[perl] Numero Aleatorio

[Alejandro M. Hurtado M.]

#!/usr/bin/perl
#############################################################################
# Genera un numero aleatorio
#  
#############################################################################
srand(time ^ $$);
$numUrls = $ARGV[0];
$url = int(rand($numUrls));
print "$url\n";      


*************************************
*     amhurtad@thor.uc.edu.ve       *
*************************************
*     UNIVERSIDAD DE CARABOBO       *   
* FACULTAD DE CIENCIAS Y TECNOLOGIA *
*           GRUPO DE WWW            *
*       VALENCIA - VENEZUELA        *
*************************************
*     Alejandro M. Hurtado M.       *
*************************************


--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl