http://www.google.com/#q=hola&hl=es&prmd=ivnsu&ei=-GmPTfjVBceTtwemjsnKDQ&start=90&sa=N&fp=1&cad=b
Using perl Syntax Highlighting
- use LWP::UserAgent;
- my $ua = LWP::UserAgent->new;
- my $query=$ARGV[0];
- my $resp = $ua->get($query);
- my $content = $resp->content;
- $save = $ARGV[1];
- #print "\n$content\n";
- system('if not exist html (mkdir html)');
- open (ESCRIBIR,">html/$save.html");
- print ESCRIBIR $content;
- close (ESCRIBIR);
- print "Guardado en html/$save.html";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
¿Cómo consigo eso?