在网页上返回perl中两个不同单词/字符串之间的字符串

全部,， 我意识到反对gooogle ToC，但我正试图编写一个perl脚本来执行google搜索并返回点击数（例如搜索词大约XXXX中的1）。我应该说我是perl新手

在阅读等这是我有，但它没有返回任何东西，我不知道为什么…谁能给我一些指针

use LWP::Simple;

my $ua = new LWP::UserAgent;
$ua->agent('Mozilla/5.0');

my $url=$ARGV[0];
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);

$res->content;  

print "all done \n";    

while ($res ==~ /of about <b>([1234567890,]<\/b> +)/) {
  print $res;
}

使用LWP:：Simple；
my$ua=新LWP:：UserAgent；
$ua->agent（'Mozilla/5.0'）；
我的$url=$ARGV[0]；
我的$req=HTTP:：Request->new（GET=>$url）；
我的$res=$ua->请求（$req）；
$res->content；
打印“全部完成”\n；
而（$res==~/大约（[1234567890，]+）/）{
打印$res；
}

行：

while ($res ==~ /of about <b>([1234567890,]<\/b> +)/) {

该行：

while ($res ==~ /of about <b>([1234567890,]<\/b> +)/) {

---

您需要针对

$res->content

，而不是响应对象运行正则表达式。您没有使用strict和warnings，是吗？您需要针对

$res->content

，而不是响应对象运行正则表达式。您没有使用strict和warnings，是吗？