Este es el código:
Using perl Syntax Highlighting
#!usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
my $url = $ARGV[0];
unless ($ARGV[0]) {
print "Examinador <HOST>\n" ;
print "\n";
exit 0;
}
my $ua = LWP::UserAgent->new;
$ua->agent("Kidd 1.0 (http://perlenespanol.com/)");
my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);
my $content = $response->content();
if($content=~ /Unknown column / )
{
print "Perfecto";
} else {
print "Not";
}
use LWP::UserAgent;
use HTTP::Request;
my $url = $ARGV[0];
unless ($ARGV[0]) {
print "Examinador <HOST>\n" ;
print "\n";
exit 0;
}
my $ua = LWP::UserAgent->new;
$ua->agent("Kidd 1.0 (http://perlenespanol.com/)");
my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);
my $content = $response->content();
if($content=~ /Unknown column / )
{
print "Perfecto";
} else {
print "Not";
}
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4
Sé que es con un for() pero no sé cómo hacer que pruebe con la columna 1 a la 50. Si alguien me ayuda...
