如何在head http中為perl傳遞模糊邏輯？

Question

我想使用perl模糊http參數，如何做到這一點，請查看我的子代碼。

我嘗試使用head方法，但出現錯誤。

從620行到624行的代碼。

sub print_fuzz_methods( ) {
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:31.0) Gecko/20130401 Firefox/31.0.");
print color("BOLD RED"), "\n\n                              my $res = $ua->head( $url );
my $response = $browser->get(
  '$url',
  'Referer' =>  "<SCRIPT>alert('document.domain='+document.domain)</SCRIPT>",
);

錯誤：無法在tishna.pl第621行，第1行的未定義值上調用方法“ get”

Answer 1

您似乎沒有在代碼中use strict打開功能。 這是個錯誤。 絕大多數有經驗的Perl程序員都建議您使用以下代碼啟動所有Perl代碼：

use strict;
use warnings;

因為這些新增內容將告訴您程序員通常犯的大量愚蠢的錯誤。

use strict的最重要的事情之一就是迫使您聲明變量。 這樣可以防止出現類似您在此處所犯的錯誤。

您在名為$ua的變量中創建LWP :: UserAgent對象。 然后，您嘗試在名為$browser的變量中使用該對象。 您正在使用不一致的變量名稱。

（還值得指出的是，變量不會在單引號引起來的字符串中擴展-因此，您需要$ua->get($url, ...)而不是$ua->get('$url', ...) ）