OLD | NEW |
1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -w |
2 | 2 |
3 print "Content-type: text/plain\n\n"; | 3 print "Content-type: text/plain\n\n"; |
4 | 4 |
5 if ($ENV{'REQUEST_METHOD'} eq "POST") { | 5 if ($ENV{'REQUEST_METHOD'} eq "POST") { |
6 read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) | 6 read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) |
7 || die "Could not get query\n"; | 7 || die "Could not get query\n"; |
8 my @array = split //, $request; | 8 my @array = split //, $request; |
9 @array = map(ord, @array); | 9 @array = map(ord, @array); |
10 print "@array"; | 10 print "@array"; |
11 } else { | 11 } else { |
12 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; | 12 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; |
13 } | 13 } |
OLD | NEW |