List of post.cgi

このファイルは、実行が許可されています。
Sun Sep 23 12:15:49 2018

戻る

TEXTAREA で表示(カット&ペーストむき)

#!/usr/local/bin/perl5

# post.cgi
# 1997/08/29 Ver.0.00
# 1997/09/24 Ver.0.01
#       + の変換忘れを修正しました。
# 1997/03/29 Ver.0.02
#
# (C) 1997,1998 がま 
# e-mail addr : gama@mvg.biglobe.ne.jp

print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD><TITLE>Post された内容</TITLE></HEAD>";
print "<BODY BGCOLOR=\"#FFFFFF\">\n";
print "<H1>Post された内容</H1>\n";
print "<HR>\n";

# --------------------------------------------------------

$ct = $ENV{"CONTENT_TYPE"};
$cl = $ENV{"CONTENT_LENGTH"};

print "CONTENT_TYPE = $ENV{'CONTENT_TYPE'}<BR>";
print "CONTENT_LENGTH = $cl<BR>"; 

# --------------------------------------------------------
read(STDIN, $in, $cl);

print "<HR>\n";
print "加工前<BR>";
print "<PRE><BLOCKQUOTE>\n";
print $in;
print "<\/PRE><\/BLOCKQUOTE>\n";

print "<HR>\n";

print "ちょっぴり加工すると・・・<BR>";
print "<PRE><BLOCKQUOTE>\n";
$in =~ s/&/\n&/g;
$in =~ s/\+/ /g;
$in =~ s/%(..)/pack("c",hex($1))/ge;
$in =~ s/</&lt;/g;
$in =~ s/>/&gt;/g;
$in =~ s/&/&amp;/g;
print $in;
print "<\/PRE><\/BLOCKQUOTE>\n";

# --------------------------------------------------------
print "<HR>\n";
print "<CENTER>\n";
print "<A HREF=\"step04.htm\">戻る</A>";
print "</CENTER>\n";
print "<HR>\n";
print "</BODY>\n";
print "</HTML>\n";

戻る