PERLによる自動フォーム提出 - デバッグ！

Question

クライアントの設定は簡単です。

Page Aには、クエリ結果を表示するページBに送信するフォームがあります。残念ながら、データを取得するための他のAPIやDBアクセスはありません。

このクエリを頻繁に実行する必要があるため、この提出をPerlで自動化することにしました。

ページAのフォームキー値のペアをスニッファと判断し、コードを複製しました。しかし、プログラムBを実行すると、追加の意味のある説明なしでHTTP 500エラーがスローされます。

このコードをデバッグするためのポインタはありますか？自身のコードは単純です：

 
use strict; 
    use warnings; 
    use LWP; 
    my $browser = LWP::UserAgent->new; 

    my $url = "targeturl.asp" 
    my $response = $browser->post($url, 
    [ 
    "HisSort" => "1", 
    "RTsort" => "", 
    "chkHisRun" => "on", 
    "chkRTRun" => "on", 
    "optAdHoc" => "on", 
    "optHist" => "", 
    "optServer" => "servername", 
    "optStatus" => "", 
    "optWhat" => "H", 
    "txtEnd" => "", 
    "txtFields" => "1,0,10,17,11,18,24,19,21,25,1", 
    "txtHEnd" => "11/3/2010", 
    "txtHStart" => "11/1/2010", 
    "txtServer" => "", 
    "txtStart" => "", 
    ] 
); 

注： 私は、ページAまたはページBのソース

Answer 1

チーム これは解決されました。 それは最終的に、問題はヘッダーではなく、私が送信していたキー値のペアであることが判明しました。ページBはフィールドで検証を行っておらず、それらをフィールドに直接差し込んでいました。

私はページBが期待していたものに到達するために（ページAでテストして）何らかの強引な組み合わせを試さなければなりませんでした。

ボランティアをしてくれた皆様に感謝します。

Answer 2

へのアクセスを持っていない第一に、私は、LWPの周りの友好のラッパーであるWWW::Mechanizeを見てお勧めします。第2に、HTTPクライアントが500のエラーを受け取っている場合、Webサーバーのエラーログに意味のある何かがあるはずです。最後に、マシューが言及したように、ブラウザーから送られてきた要求を綿密に調べて、Perlプログラムが送信している要求とどのように異なるかを調べる必要があります。