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行的未定义值上调用方法“获取”

Answer 1

您的代码中似乎没有打开use strict。这是个错误。绝大多数有经验的Perl程序员都建议您使用以下代码启动所有Perl代码：

use strict;
use warnings;

这些添加内容将告诉您程序员通常犯的大量愚蠢的错误。

use strict做的最重要的事情之一就是迫使您声明变量。这样可以防止出现您在这里似乎犯过的错误。

您在名为$ua的变量中创建LWP :: UserAgent对象。然后，您尝试在名为$browser的变量中使用该对象。您正在使用不一致的变量名。

（还需要指出的是，变量不会在单引号引起来的字符串中展开-因此您需要$ua->get($url, ...)，而不是$ua->get('$url', ...)。）

如何在head http中为perl传递模糊逻辑？

1 个答案: