perlスクリプトのPOSTデータを使った不思議な動作

Question

サーバはLinuxです。 POSTデータをスクリプトに送信すると、わかりにくい問題が発生します。

例えば、私は以下のPOSTデータを送信します。ここではchoice=update

はスクリプトです：

#!/usr/bin/perl -w 

print "Content-type: text/html\n\n"; 


    if ($ENV{'REQUEST_METHOD'} eq "GET") { 
    $in = $ENV{'QUERY_STRING'}; 
    } elsif ($ENV{'REQUEST_METHOD'} eq "POST") { 
    read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); 
    } 
    @in = split(/&/,$in); 

    foreach $i (0 .. $#in) { 
    # Convert plus's to spaces 
    $in[$i] =~ s/\+/ /g; 

    # Split into key and value. 
    ($key, $val) = split(/=/,$in[$i],2); # splits on the first =. 

    # Convert %XX from hex numbers to alphanumeric 
    $key =~ s/%(..)/pack("c",hex($1))/ge; 
    $val =~ s/%(..)/pack("c",hex($1))/ge; 

    # Associate key and value 
    $in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator 
    $in{$key} .= $val; 
    } 

print $in{'choice'}; 

私はスクリプトに初めてアクセスするには、それがupdate
私はそれにアクセスする第二の時間を表示します、それは印刷する​​
updateupdateupdate
...などを印刷します。

何が原因で、リクエストの間に文字列を追加し続けることができますか？私はブラウザで簡単にリフレッシュするだけで毎回同じPOSTデータを送信しています。クッキーは使用されていません。コメントアウトされていないファイルはありません。

編集：また、私がprint <STDIN>と言うときは毎回choice=updateと表示されます。他のupdateは追加されていないようですSTDIN

Answer 1

私の推測では、スクリプトは依頼の間で実行されていると思います。 %inはグローバル変数であるため、決してクリアされないため、$in{$key} .= $valueは文字列の長短を長くします。おそらく、字句変数を使用して問題を回避できます。

これは、スクリプトがWebサーバーによってどのように実行されているかを調べる必要があることを意味します。

モジュールを使ってこのすべての解析作業を行い、遭遇した問題を避けるためにperlコードを書く方法について学びたいと思うでしょう。私はModern Perlを見てそこから作業することをお勧めします。

Answer 2

Webサーバーの設定に関連しているように見えますが、スクリプト自体ではないようです。

しかし、コードの先頭に、追加してください：

これはスコープあなたが印刷している変数を希望

my %in; 

。

また、コードの最後には、exit 0; （通常は必要ありません）を追加します。