|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/ventex/test/ |
Upload File : |
#! /usr/bin/perl
# test.pl
if ($ENV{'REQUEST_METHOD'} eq 'POST')
{
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
}
}
print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD>";
print "<TITLE>Output from test.pl</TITLE>";
print "</HEAD>";
print "<BODY>";
print "<H1>Output of test.pl</H1>";
print "The entered string: \"$form{'string'}\" ";
print "<HR><A HREF=\"index.html\">Go Back</A>";
print "</BODY>";
print "</HTML>";
exit;