Estimados,
Los molesto porque me gustaría hacer que el siguiente
script me guarde los resultados en archivos diferentes y no como ahora todo en uno solo.
Using perl Syntax Highlighting
#!/usr/bin/perl
BEGIN {
eval "use LWP::Simple";
if ($@) {
warn "Error al cargar modulo: LWP::Simple\n"
. "Instalar Modulo:\n"
. "\t\tcpan\n"
. "\t\tcpan> install LWP::Simple\n";
exit();
}
}
use LWP::Simple;
sub unescape {
my ($str) = splice(@_);
$str =~ s/\\u(.{4})/chr(hex($1))/eg;
return $str;
}
## Archivo Externo
open $FILE, '<', $ARGV[0] or die $!;
@archivos = <$FILE>;
close $FILE;
$g = $ARGV[1];
chomp $g;
## reporte
open( F, ">> reporte.txt" );
if ( @ARGV != 2 ) {
die "Uso: $0 <archivo> <cantidad>\n" . " <archivo>\n" . " <cantidad>\n";
}
else {
for $archivo (@archivos) {
chomp $archivo;
$buscar = "$archivo";
chomp $buscar;
for ( $j = 1; $j <= "$g"; ++$j ) {
$c = get("http://ajax.googleapis.com/ajax/services/search/web?v=1.0&start=$j&rsz=large&q=$buscar");
while ( $c =~ s/"unescapedUrl":"([^"]*)"// ) {
@url = unescape($1);
my %tmp = map { $_, 0 } @url;
@url = sort( keys %tmp );
print F "@url\n";
print "@url\n";
}
}
}
}
Coloreado en 0.005 segundos, usando
GeSHi 1.0.8.4
externo:
Using text Syntax Highlighting
google.com
perlenespanol.com
twitter.com
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Ejecución:
Using bash Syntax Highlighting
perl google_search.pl externo.txt
Coloreado en 0.004 segundos, usando
GeSHi 1.0.8.4
Mi idea es que me cree tres archivos con los nombres de los dominios que tengo dentro de "externo".
Saludos.