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

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 的变量中使用该对象。您正在使用不一致的变量名称。

（还值得指出的是，变量不会在 single-quoted 字符串中展开 - 所以您需要 $ua->get($url, ...)，而不是 $ua->get('$url', ...)。）

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

How to pass fuzz logic in head http for perl?

methods

perl

http

head

fuzzing