半角スペースが有効にならない。
前のページで入力された値を取得するCGIですが、どうしても半角スペースを認識しません。
それどころか、半角スペースの後ろを一切消してデータを取得しています。
同じように作成したものはきちんと動いているのに…。
どこが間違ってるかご指摘お願いします。
----------
#!/usr/local/bin/perl
read(STDIN,$buffer,$ENV{'content_length'});
@atai = split(/&/,$buffer);
foreach $atais(@atai){
($key, $value) = split(/=/, $atais);
$FORM{$key}=$value;
}
$buffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$buffer =~ tr/+/ /;
$value =~ tr/+/ /;
$key =~ tr/+/ /;
print "Content-type:text/html\n\n";
print "$key<BR>\n";
print "<A HREF=./***.cgi>Back</A><BR>\n";
open (FH,">***.log");
@filew="$buffer\n";
print FH @filew;
close(FH);
exit;
----------
以上です。よろしくお願いします。
補足
すみません。入力ミスです。 ホント、これくらいきちんと書かないといけませんね。 失礼しました。 で、<td>内の半角スペースはOKなんですけど、<tr>の後なので困っているんです。 色々調べては見たのですがちょっと分からなかったものですから最後の手段と思って軽い気持で質問したのですが・・・。 もう一度きちんと調べてみます。