试图在perl中获取网页的源代码

mac*_*mac 2 perl

我正在尝试使用Perl"get"函数获取网页的html源代码.我已经在5个月前编写了代码并且工作正常,但昨天我做了一个小编辑,但是在那之后它无法工作,无论我尝试了多少.这是我试过的代码.

#!usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
my $link = 'www.google.com';
my $sou = get($link) or die "cannot retrieve code\n";
print $sou;
Run Code Online (Sandbox Code Playgroud)

代码工作正常,但它无法检索源,而是显示

cannot retrieve code
Run Code Online (Sandbox Code Playgroud)

请帮助我做到这一点.

勿绮语*_*勿绮语 6

my $link = 'http://www.google.com';
Run Code Online (Sandbox Code Playgroud)

  • 您的浏览器将默默地将"http://"添加到您在位置栏中键入的字符串中.LWP :: Simple不会这样做,因此您需要明确地执行此操作. (3认同)