尝试使用in in perl来获取网页的来源

我正在尝试在我的perl代码中获取网页的来源,基本上这个网站是本地服务器,链接是http://gold.star.com/isos/preFCS5.4/LASTESTDMS/ 我能ping服务器,但我的代码中的get命令似乎没有得到页面源这里是我正在尝试的代码

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
my $dmsurl = 'http://gold.star.com/isos/preFCS5.4/LATESTDMS/'; 
my $page = get($dmsurl) or die "cannot\n";
print $page; 

每次运行此代码时,我都会收到消息"Can not",但是当我在浏览器中尝试打开时,同样的链接,但在代码中它不起作用.

您的网站可能会阻止您的脚本,因为它认为它是一个机器人.您想通过查看LWP从您的网站获取的状态代码来查找.不幸的是,你无法做到这一点get.你可以getprint和getstore.

use LWP::Simple;
my $dmsurl = 'http://gold.star.com/isos/preFCS5.4/LATESTDMS/'; 
my $rc = getprint($dmsurl);
print status_message($rc);

getprint如果失败则显示状态代码,因此打印状态消息有点多余.有关更多信息$rc,请参阅HTTP :: Status.