久しぶりに少しだけ Perl を使う事になった。
フォームから、どのようなデータが送られて来たのかを調べる。

post されたデータを受け取り、そのままテキストファイルに保存するだけ。

よく考えたら、自分のパソコンでは動かせなかった。
そこで、ぷららのcgiサーバーにアップして使う事にした。

あ、動いた動いた・・・

#!/usr/local/bin/perl

my $buffer;

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

open(FH,"> postdata.txt");
print FH $buffer;
close(FH);

__END__

数年ぶりの Perl は、もうぜんぜん分からない。
以前に作ったプログラムから、この部分を引っ張り出すだけで一苦労した。

今回の事はフォームのHTMLをよく見れば、送るデータが分かりそうなものだが。
何で、このような事をしたのだろうか・・・

まぁ、いいや。
実際の結果を知っておいた方が、確かな事には違いないだろうし。

こんな事から始めるので、なかなか始める気になれなかったのだよ。
う～ん、これから先が思いやられるなぁ。