冒険の書

27歳と6ヶ月のときに未経験でITエンジニアに転職した元派遣会社営業職(文系)が綴るブログです。同じように20代後半から未経験でIT技術者に転職することを検討されている人に「27歳からの未経験がどれだけ成長できるか」という点などで参考になれば幸いです。

【備忘録】postでの受け取りと返却データをperlで書く。

apacheのディレクトリ構成はこんなかんじ

/var/------www/-------test.html

               cgi-bin/-------test.cgi

                                    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";

 

参考、っていうか理解のうえ、そのまま利用させてもらいました。これからも、使わせてください。↓

簡単CGI