为什么我无法从perl的网站上获取源代码？

Question

我想获取本网站的源代码： https://www.splithistory.com/zsl/ 但是它给出了错误，我通过WWW :: Mechanize和LWP :: Simple尝试了它但是我得到了错误：错误GETing网站找不到J：\ perl_project \ demo_spli.pl第9行。 但是当我尝试从这个网站获取数据时： https://www.splithistory.com/aapl/ 它工作正常.....

这是我的代码

Error GETing https://www.splithistory.com/zsl/: Not Found at J:\perl_project\demo_spli.pl line 9.

输出：

$ionicView.enter

Answer 1

  

Error GETing https://www.splithistory.com/zsl/: Not Found at J:\perl_project\demo_spli.pl line 9.

那是因为网站在HTTP标头内返回“404 Not Found”。成功的响应将具有状态代码200：

HTTP/1.1 404 Not Found
Date: Mon, 08 Aug 2016 18:50:46 GMT
Server: Apache/2.2.31 (Unix) mod_ssl/2.2.31 OpenSSL/1.0.2h mod_jk/1.2.40 mod_perl/2.0.9 Perl/v5.8.9
Transfer-Encoding: chunked
Content-Type: text/html; charset=ISO-8859-1

如果网站返回错误，那么WWW :: Mechanize将会出现问题，这就是您所看到的内容。无论如何要获取数据：

eval { $mech->get($url); };
my $res = $mech->res();
$script = $res->content;