【備忘録】postでの受け取りと返却データをperlで書く。
apacheのディレクトリ構成はこんなかんじ
/var/------www/-------test.html
jcode.pl
jcode.plはここからDL
ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/
【test.html】
<HTML>
<BODY>
<FORM ACTION="cgi-bin/test.cgi" METHOD="POST">
投稿者<INPUT TYPE="text" NAME="name"><BR>
E-mail <INPUT TYPE="text" NAME="mail"><BR>
<INPUT TYPE="submit" VALUE="送信">
<INPUT TYPE="reset" VALUE="ﾘｾｯﾄ">
</FORM>
</BODY>
</HTML>
【test.cgi】
#!/usr/bin/perl
require 'jcode.pl';
read( STDIN, $data, $ENV{ 'CONTENT_LENGTH' } );
$data =~ tr/+/ /;
$data =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1) )/ge;
&jcode'convert( *value, 'sjis' );
($name,$mail)=split(/&/,$data);
($name1,$name2)=split(/=/,$name);
($mail1,$mail2)=split(/=/,$mail);
print "Content-type: text/html\n\n";
print "名前：$name2 メール：$mail2\n";
参考、っていうか理解のうえ、そのまま利用させてもらいました。これからも、使わせてください。↓