-2
login.htmlと送信POSTデータ
<form method="POST" action="login.php">
<input type="text" name="username">
<input type="password" name="password">
<button class="_sdf3">Login</button>
</form>
login.pl
#!/usr/bin/perl
use LWP::UserAgent;
my $username = "admin";
my $password = "pass2321";
my $url = "http://127.0.0.1/login.html";
my $ou = new LWP::UserAgent;
my $req = $ou->post($url,{ username => $username , password => $password , });
my $code = $req->code;
if ("$code" eq "302"){
print "Username And Password OK";
}else{
print "Username And Password BAD";
}
私はlogin.pl
を実行すると、私はUsername And Password BAD
が表示されますが、データは右です!
私はあなたがlogin.html
に投稿されていますが、login.php
に掲示しなければならないlogin.htmlと
'print" code = $ code = \ n "; ' – toolic
' use strict;あなたのPerlスクリプトの一番上にある警告 'all';を使います。 LWP :: UserAgentは 'code'メソッドを持っていないので、' $ ou-> code'は意味をなさない。あなたはあなたの[HTTP :: Response](https://metacpan.org/pod/HTTP::Response)オブジェクトの 'code'メソッドを呼び出す' $ req-> code'を意味しました。 – ThisSuitIsBlackNot
...しかし、これはあなたが実際に使っているコードではないと思っています。なぜなら、あなたが表示したものは ''オブジェクトメソッドを見つけることができません "というコードでパッケージ" LWP :: UserAgent "elseブロックに到達する前に"。 – ThisSuitIsBlackNot