如何在头http for perl中传递模糊逻辑？

我想使用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>",
);

sub-print\u fuzz\u方法（）{
my$ua=LWP:：UserAgent->new；
$ua->agent（“Mozilla/5.0（Windows NT 6.1；WOW64；rv:31.0）Gecko/20130401 Firefox/31.0”）；
打印颜色（“粗体红色”），“\n\n我的$res=$ua->head（$url）；
my$response=$browser->get(
“$url”，
'Referer'=>“警报（'document.domain='+document.domain）”，
);

错误：

---

无法在tishna.pl第621行、第1行的未定义值上调用方法“get”。您的代码中似乎没有启用

use strict

。这是一个错误。绝大多数有经验的Perl程序员都会建议您在开始所有Perl代码时使用：

use strict;
use warnings;

因为这些补充会告诉你程序员经常犯的大量愚蠢的错误

使用strict

所做的最重要的事情之一就是强制您声明变量。这可以防止您在此处所犯的错误

在名为

$ua

的变量中创建LWP:：UserAgent对象。然后尝试在名为

$browser

的变量中使用该对象。您正在使用不一致的变量名

---

（还值得指出的是，变量并不是以单引号字符串展开的，所以您希望

$ua->get（$url，…）

，而不是

$ua->get（“$url”，…）

）

似乎您的代码中没有启用

使用严格的
。这是一个错误。绝大多数有经验的Perl程序员都会建议您在开始所有Perl代码时使用：

use strict;
use warnings;

因为这些补充会告诉你程序员经常犯的大量愚蠢的错误

使用strict
所做的最重要的事情之一就是强制您声明变量。这可以防止您在此处所犯的错误

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

（同样值得一提的是，变量不是以单引号字符串展开的-所以你想要
$ua->get（$url，…）
，而不是
$ua->get（'$url'，…）
）
你的代码复制正确了吗？看起来你缺少了一个结束引号
”
在第4行。您在
$browser
上调用方法
get
。但是在任何地方都没有定义
$browser
变量。因此，是的，它试图“调用方法”get“在未定义的值上…”。似乎
$browser
在调用
get
时应该是
$ua（一旦你把它修改成在
$ua
）上调用，你就不需要在
$url
周围加上单引号了。这个变量需要（对url字符串）求值，在
'
下不能发生什么事。你发布的代码有响应，可以修复错误（并采用良好的实践）。但是对于“fuzz”在测试中，我看不出这个问题与这个主题有什么联系（除了提到它之外）？我认为有一些模块用于搜索（或提供搜索）。另外，请查看您是否正确复制了代码？看起来您缺少一个结束语
“
在第4行。您在
$browser
上调用方法
get
。但是没有在任何地方定义
$browser
变量。因此，是的，它试图在未定义的值上“调用方法”get…”。似乎
$browser
在调用
get
时应该是
$ua
。”（一旦你把它修改成在
$ua
）上调用，你就不需要在
$url
周围加上单引号了。这个变量需要（对url字符串）求值，在
'
下不能发生什么事。你发布的代码有响应，可以修复错误（并采用良好的实践）。但是对于“fuzz”在测试中，我看不出这个问题是如何与这个主题联系在一起的（除了提到它之外）？我认为有一些模块可以用于搜索（或提供搜索）。另外，请参见