フォームからファイル書き込み

質問

かなり作りこんできたのですが、ひょんなところで
つまづきました。

フォームからのファイル書き込みの方法を教えてください。

私のPGだといくつか書き込みするルーチンがあって
ちゃんとうまく動いている部分もあるのですが、
１つだけちゃんと書き込んでくれないのです。
おおざっぱに書きますが。
細かい部分は抜いてあります。

#変数宣言
$mymsg = $FORM{ 'mymsg' };
$date = $FORM{ 'date' };

$method = "POST";

#HTML部分
<FORM NAME="form1" ACTION=\"$homeurl\" METHOD=\"$method\">

<TD><input type=text name="date" size="20" maxlength="20" value=""></TD>
<TD><input type=text name="mymsg" size="100" maxlength="100" value=""></TD></TR>

#ファイル書き込み部分
$newmsg = join(',', ($mynum, $myname, $date, $mymsg));
unshift(@txt, $newmsg);
&lock_open(TXT, ">$txtfile3");
print TXT @txt;
&unlock_close(TXT);

こんな感じなのですが、書き込んだテキストファイル
を見ると、書き込んだ様子はある（mynumとmynameは書き
こめている）のですが、上記の２つのフォームからの
情報が書き込まれていないのです。

基礎がわかっていないでやっているので、
STDINから情報を取らなきゃいけないのかも
知れないとやってみたりしています。

上記のように書いてほかのファイルはちゃんと書き込めて
いるのですが、どうしてこれは上手くいかないのでしょうか？

回答No.3

tols777

#2です。

貴方の書かれている
&getparam
はデータの分解とハッシュの作成もやってると思っていいですか？

それでしたら、$newmsgに入力する前に
print "$FORM{'mymsg'}\n";
print "$FORM{'date'}\n";
で確認してみてください。

貴方の言われている
『あと、うまく行っているルーチンではこれはつけていないのにうまく行っているのです。』
の件ですが、こちらのルーチンでもPOSTメソッドを使用していますか？

お礼

回答ありがとうございました。

どうやらprintで出ないのです。

&getparamは他人の使い回しで内容を把握していないの
ですが、書いておきます。

sub getparam {
my( $value, $key );
foreach $in_param ( split( /&/, $query ) ) {
( $key, $value ) = split( /=/, $in_param );
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1) )/ge;
&jcode'convert( *value, $kanjicode );
$param{ $key } = $value;
}
}

このルーチンで処理が上手くいっていないのでしょうか？
あと上手くいっているルーチンではPOSTを使っています。