Foro - Perl en Español

por **joss** » 2007-09-13 12:29 @562

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print"introduce el txt:";
$arch=<STDIN>;

open(a,"$arch");
@site=<a>;
close(a);
$b=scalar(@site);

for($a=0;$a<=$b;$a++){

$sock= IO::Socket::INET->new(PeerAddr =>$site[$i], PeerPort =>80, Proto =>"tcp");

if($sock){

print$site[$a];
}
}Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Lo que pretendo con este código es cargar un texto con muchas webs y que compruebe cuáles funcionan y te las muestre. Pero algo falla.

Código: Seleccionar todo: introduce el txt:webs2.txt Can't locate object method "new" via package "IO::Socket::INET" (perhaps you for got to load "IO::Socket::INET"?) at C:\Documents and Settings\JosS y bEa\Escrito rio\wat.pl line 13.

use IO::Socket::INET;
use strict;

print"introduce el txt:";
$arch=<STDIN>;
chomp$arch;

openmy$FILE,'<',$archordie$!;
my@site=<$FILE>;
close$FILE;

$b=scalar(@site);

for($a=0;$a<=$b;$a++)

{

$sock= IO::Socket::INET->new(PeerAddr =>$site[$i], PeerPort =>80, Proto =>"tcp");

if($sock)

{

print$site[$FILE];
}


}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Error:

Código: Seleccionar todo: Global symbol "$arch" requires explicit package name at C:\Documents and Setting s\JosS\Escritorio\Programando\Perl\project\wat.pl line 5. Global symbol "$arch" requires explicit package name at C:\Documents and Setting s\JosS\Escritorio\Programando\Perl\project\wat.pl line 6. Global symbol "$arch" requires explicit package name at C:\Documents and Setting s\JosS\Escritorio\Programando\Perl\project\wat.pl line 8. Global symbol "$sock" requires explicit package name at C:\Documents and Setting s\JosS\Escritorio\Programando\Perl\project\wat.pl line 18. Global symbol "$i" requires explicit package name at C:\Documents and Settings\J osS\Escritorio\Programando\Perl\project\wat.pl line 18. Global symbol "$sock" requires explicit package name at C:\Documents and Setting s\JosS y bEa\Escritorio\Programando\Perl\project\wat.pl line 20. Execution of C:\Documents and Settings\JosS \Escritorio\Programando\Perl\pr oject\wat.pl aborted due to compilation errors.

por **explorer** » 2007-09-16 05:43 @280

Los errores se refieren a que Perl no sabe dónde están definidas las variables que usas en el programa. Algo así como que en un programa en C no sabemos si están definidas en el propio código fuente o en alguno que más tarde será incluido con 'include'.

Al principio del programa, y después del 'use strict', escribe:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$arch;
my$sock;
my$i;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

txt y sock

txt y sock

Publicidad

¿Quién está conectado?