Grep en web
Publicado: 2007-10-03 12:53 @578
Lo que estoy intentado hacer es entrar en una web y buscar una palabra mediante grep. Y si existe que me lo confirme.
Con ese script estoy intentando entrar a google y si me encuentra la palabra "Web" que me imprima "EXISTE". Pero ese code está mal.
Using perl Syntax Highlighting
use IO::Socket::INET;
$sock = IO::Socket::INET->new(PeerAddr => "www.google.es", PeerPort => 80, Proto => "tcp");
$grep= "$sock | grep Web";
if($grep == 0) {
print "NO EXISTE\n";
}
else {
print "EXISTE\n";
}
$sock = IO::Socket::INET->new(PeerAddr => "www.google.es", PeerPort => 80, Proto => "tcp");
$grep= "$sock | grep Web";
if($grep == 0) {
print "NO EXISTE\n";
}
else {
print "EXISTE\n";
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Con ese script estoy intentando entrar a google y si me encuentra la palabra "Web" que me imprima "EXISTE". Pero ese code está mal.