#!/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/</</g; $in =~ s/>/>/g; $in =~ s/&/&/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";