perlenespanol.com
twitter.com
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
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.004 segundos, usando GeSHi 1.0.8.4
externo:
Ejecución:
Using bash Syntax Highlighting
- perl google_search.pl externo.txt
Coloreado en 0.002 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.
