Script without CGI.pm

#!/usr/bin/perl

# cgi script without CGI.pm

$size_of_form_info = $ENV{‘CONTENT_LENGTH’};

read(STDIN, $form_info, $size_of_form_info);

# Split up each pair of key=value pairs

foreach $pair (split (/&/, $form_info)) {

($key, $value) = split(/=/, $pair);

$key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$parameters{$key} = $value;

}

print "Content-type: text/plain\n\n";

print "Your birthday is on " . $parameters{birthday} . ".\n";

Previous slide

Next slide

Back to first slide

View graphic version