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];
}
}
$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.002 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.
