2016-04-18 12 views
-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と

+0

'print" code = $ code = \ n "; ' – toolic

+1

' use strict;あなたのPerlスクリプトの一番上にある警告 'all';を使います。 LWP :: UserAgentは 'code'メソッドを持っていないので、' $ ou-> code'は意味をなさない。あなたはあなたの[HTTP :: Response](https://metacpan.org/pod/HTTP::Response)オブジェクトの 'code'メソッドを呼び出す' $ req-> code'を意味しました。 – ThisSuitIsBlackNot

+3

...しかし、これはあなたが実際に使っているコードではないと思っています。なぜなら、あなたが表示したものは ''オブジェクトメソッドを見つけることができません "というコードでパッケージ" LWP :: UserAgent "elseブロックに到達する前に"。 – ThisSuitIsBlackNot

答えて

0

<button class="_sdf3">Login</button>を使用している間、この問題を解決したいです。

関連する問題