10 Einträge, 1 Seite |
perl test.pl output=hallowelt output2=hallowelt2 output3=hallowelt3
soezkan+2008-01-24 23:34:25--[...]
#!/usr/local/bin/perl -w
##############################################################################
# Main program
#
if($ENV{'REQUEST_METHOD'} eq 'GET') {
$buffer = $ENV{'QUERY_STRING'}
}
else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
[...]
1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/perl use strict; use warnings; use CGI; my $cgi = CGI->new(); print $cgi->header( 'text/plain' ); my %params = $cgi->Vars; print sprintf( "%s : %s\n" $_, $params{$_} ) for keys %params;
10 Einträge, 1 Seite |