- Código: Seleccionar todo
292007
243764
290922
239811
244655
271741
¿Cómo puedo hacer que se le asigne a la variable $id uno por uno los números de ese archivo de texto y según vaya asignándolo vaya abriendo la respectiva web? Gracias y espero su ayuda.
Using perl Syntax Highlighting
#!c:/perl/bin
#Iniciamos nuestros módulos
use Win32::OLE;
use Win32::SAM;
#Obligamos a hacer flush
$| = 1;
#Indicamos como manejar errores
$Win32::OLE::Warn = 3;
#Iniciamos nuestro navegador
StartIE();
#Cargamos la página de Google
my $segundos = Navigate("https://www.web.com/Dato.asp?z=00"."$id");
print "Google tardo $segundos segundos en cargar.\n";
#Salimos del programa
exit(1);
#Iniciamos nuestros módulos
use Win32::OLE;
use Win32::SAM;
#Obligamos a hacer flush
$| = 1;
#Indicamos como manejar errores
$Win32::OLE::Warn = 3;
#Iniciamos nuestro navegador
StartIE();
#Cargamos la página de Google
my $segundos = Navigate("https://www.web.com/Dato.asp?z=00"."$id");
print "Google tardo $segundos segundos en cargar.\n";
#Salimos del programa
exit(1);
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
