ココとPerlで头びませんか(テキストの咖仑え)

POST と GET

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; }
CGIプログラムへのデ〖タの流り数には、POSTメソッドとGETメソッドが洛山弄です。

GETメソッドはURLの山绩腕に
httpd://www.dokodoko.co.jp/cgi-bin/naniyara.cgi?data1=23&data2=34
などのようにプログラム叹の稿ろに々マ〖クがついて斧えます。

POSTメソッドの眷圭には
httpd://www.dokodoko.co.jp/cgi-bin/naniyara.cgi
までが山绩されていて々マ〖ク笆惯は山绩されずません(流慨デ〖タの面に呈羌されます)。

CGIプログラムでPOSTメソッドとGETメソッドかを冉们するには茨董恃眶(REQUEST_METHOD)を蝗脱します。
GETメソッドでは、々マ〖ク笆惯のデ〖タを茨董恃眶(QUERY_STRING)に肋年してCGIプログラムを弹瓢します。
POSTメソッドでは流慨されたデ〖タは筛洁掐蜗に肋年されますので、read 簇眶を蝗って粕み哈みます。
read(ファイルハンドル, 恃眶, デ〖タの墓さ);
またデ〖タの墓さは茨董恃眶(CONTENT_LENGTH)に肋年されます。
@pairs = split(/&/,$buffer);
≮ⅹPerl Reference: split≯
≮ⅹPerl Reference: $(スカラ〖)≯
≮ⅹPerl Reference: @(芹误)≯
恃眶 $buffer の面咳を split(/&/,$buffer)で &マ〖クを惰磊り矢机として @pairs に洛掐しています。ここでは稿でHTMLのファ〖ム柒推を山绩しますが、$bgcolor と $fontcolor が澈碰します。CGIからは毋えば布のようなデ〖タ流られてきます。
bgcolor = FFFFFF & fontcolor = 000000

惧を
bgcolor = FFFFFF
と
fontcolor = 000000
に尸けるのです。
foreach $pair (@pairs) {　 }
黎ほど & で尸充した @pairs を $pairs に洛掐しながら、デ〖タを呵稿まで粕み哈み借妄をします。
($name, $value) = split(/=/, $pair);
その $pairs を = で尸充し、$name と $value に呈羌します。
bgcolor FFFFFF

fontcolor 000000
$value =~ tr/+/ /;
尸充した猛 $value の + を染逞スペ〖スに弥垂えしています(URLエンコ〖ディングの惮搂徊救)。
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
弥き垂えた $value に崔まれる "%"に鲁く"16渴眶の矢机コ〖ド"を傅の矢机に弥垂えています。毋えば≈ココ∽と掐蜗すると EUCコ〖ドでは16渴眶で≈=%A5%B3%A5%B3∽でSHIFT-JISコ〖ドでは≈%83R%83R∽となっています∈フォ〖ムから掐蜗された矢机がどのような16渴眶になっているかEUCとSHIFT-JISの企硷梧のHTMLを脱罢してあります∷。これを≈ココ∽に提しているのです。そのため、hex簇眶を蝗って办枚10渴眶に恃垂し、それをpack簇眶でエンコ〖ドされた矢机をデコ〖ドしています。掐蜗フォ〖ムを脱罢してみました。(SHIFT-JIS)
/の稿の eg は饯峻灰で /e は
s/弥垂涟/弥垂稿/e
弥垂え稿をPerl の及として删擦します。
ここでは簇眶に弥き垂えています。
s/弥垂涟/弥垂稿/g
は黎片だけでなく、帆り手しにも努脱させるものです。

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

@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;
        $FORM{$name} = $value;
}

1〃

まとめるとこのようになります。これをstdin.txt として瘦赂しておき、いろいろなスクリプト(POSTでもGETでも)から钙び叫して蝗脱することにします。

#!/usr/local/bin/perl

require 'stdin.txt';

$title = "秦肥第び矢机咖";
$bgcolor = $FORM{'bgcolor'};
$fontcolor = $FORM{'fontcolor'};

if ($bgcolor eq '') { $bgcolor = 'FFFFFF'; };
if ($fontcolor eq '') { $fontcolor = '000000'; };

print qq|Content-type: text/html\n\n|;
require 'heder.txt';# ヘッダ〖粕み哈み
print qq|<body bgcolor="#$bgcolor">|;
print qq|<blockquote><br>\n|;

#附哼の16渴眶の山绩
print qq|<table border="1" bgcolor="#FFFFFF">\n|;
print qq|<tr><td colspan="2">附哼山绩されている咖です</td></tr>\n|;
print qq| <tr><td align="center"><font color="#000000">矢机咖[<font color="#$fontcolor">ⅲ</font>]</td><td align="center">秦肥咖[<font color="#$bgcolor">ⅲ</font>]</td></tr>\n|;
print qq|<tr><td align="center">#$fontcolor</td><td align="center">#$bgcolor</td></tr>\n|;
print qq|</font></table>\n|;
print qq|<hr>\n|;

open(COLORTEXT, "./bgcolor_text.txt");
print qq|<font color="#$fontcolor">\n|;
while (defined($line = <COLORTEXT>)) {
	print qq|$line|;
}
close(COLORTEXT);

#咖仑え脱16渴眶掐蜗
print qq|<hr>\n|;
print qq|<form action="./bgcolor_text.cgi" method="POST">\n|;
print qq|秦肥咖 #<input type="text" name="bgcolor" maxlength="6" size="6"><br>\n|;
print qq|矢机咖 #<input type="text" name="fontcolor" maxlength="6" size="6"><br>\n|;
print qq|<input type="submit" value="山绩">\n|;
print qq|<input type="reset" value="クリア">\n|;
print qq|</form>\n|;

print "</font><br>\n";
print "</blockquote>\n";

require 'fotter.txt';# フッタ〖粕み哈み

exit;

bgcolor_text.cgi
いかがでしょうか。

≮ⅹPerl Reference: require≯
≮ⅹPerl Reference: open≯
≮ⅹPerl Reference: close≯

bgcolor	FFFFFF
fontcolor	000000