La idea es hacer una petición de búsqueda a Google con un patrón y que éste recopile todas las webs que me dio resultado en un array.
Using perl Syntax Highlighting
#!/usr/bin/perl
use LWP::Simple;
$string = "palabra";
@webs = get("http://www.google.es/search?q=.$string.&hl=es&start=0&sa=N") =~ /(http\:\/\/[a-z0-9\.\-\/\?\:\&\%\=\_]{5,})/gi;
foreach $web (@webs)
{
($domain) = $web =~ /^http\:\/\/([a-z0-9\.\-]{5,})/;
print "$domain\n";
}
use LWP::Simple;
$string = "palabra";
@webs = get("http://www.google.es/search?q=.$string.&hl=es&start=0&sa=N") =~ /(http\:\/\/[a-z0-9\.\-\/\?\:\&\%\=\_]{5,})/gi;
foreach $web (@webs)
{
($domain) = $web =~ /^http\:\/\/([a-z0-9\.\-]{5,})/;
print "$domain\n";
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Este código me imprime como resultado NADA.
