Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use CGI;
my $query = new CGI($ENV{'QUERY_STRING'});
my %Input = $query->Vars;
#Imprimimos todos los valores
for my $key(keys %Input){
print "$key = $Input{$key}\n";
}
use strict;
use CGI;
my $query = new CGI($ENV{'QUERY_STRING'});
my %Input = $query->Vars;
#Imprimimos todos los valores
for my $key(keys %Input){
print "$key = $Input{$key}\n";
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4