- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
它只从开头输出几行。
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $response = $ua->get('http://www.eurogamer.net/articles/df-hardware-wii-u-graphics-power-finally-revealed');
print $response->decoded_content;
最佳答案
我运行了以下修改:
my $response = $ua->get( 'http://www.eurogamer.net/articles/df-hardware-wii-u-graphics-power-finally-revealed' );
say $response->headers->as_string;
看到了这个:
Cache-Control: max-age=60s
Connection: close
Date: Wed, 06 Feb 2013 23:51:15 GMT
Via: 1.1 varnish
Age: 0
Server: Apache
Vary: Accept-Encoding
Content-Length: 50519
Content-Type: text/html; charset=ISO-8859-1
Client-Aborted: die
Client-Date: Wed, 06 Feb 2013 23:50:50 GMT
Client-Peer: 94.198.83.18:80
Client-Response-Num: 1
X-Died: Illegal field name 'X-Meta-Twitter:card' at .../HTML/HeadParser.pm line 207.
X-Varnish: 630361704
它似乎不喜欢 <meta name="twitter:card" content="summary" />
标记在第 27 行。它说它死了。
它似乎可以翻译任何 meta
带有 name
的标签属性为 "X-Meta-\u$attr->{name}"
“标题”。然后它尝试存储 content
的值。属性作为 X 元“标题”值。像这样(从第 194 行开始):
if ($tag eq 'meta') {
my $key = $attr->{'http-equiv'};
if (!defined($key) || !length($key)) {
if ($attr->{name}) {
$key = "X-Meta-\u$attr->{name}"; # <-- Here's the little trick
} elsif ($attr->{charset}) { # HTML 5 <meta charset="...">
$key = "X-Meta-Charset";
$self->{header}->push_header($key => $attr->{charset});
return;
} else {
return;
}
}
$self->{'header'}->push_header($key => $attr->{content});
}
我将此模块的修改副本推送到 PERL5LIB 目录中。我包裹了push_header
加入 eval
阻止并完全下载该页面。
关于perl - 为什么 LWP::UserAgent 不能完全获取这个站点?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14740365/
我有一个简单的 perl 脚本,它使用 LWP::UserAgent 连接到一个安全站点。它工作正常。当我使用 Mojo::UserAgent 时,它无法验证证书。这是可靠且可重复的。基本的 Perl
我最近将 gwt.xml 脚本更改为仅编译 1 个排列(仅限 ie8),这解决了我之前的问题,但是出现了一个外观问题,即每次使用 IE8 打开我的 GWT 页面时都会显示一个烦人的弹出窗口 这里我包含
如果我提出这样的请求: my $mojo_ua = Mojo::UserAgent->new->max_redirects(5); $mojo_ua->inactivity_timeout(60)->
是否有任何默认方式来记录哪些用户代理访问了您的服务器?我需要编制一份访问我们网站的浏览器列表,以便我们知道我们最能支持什么。 谢谢! 最佳答案 日志CGI.HTTP_USER_AGENT ,也许在 A
我读了这个 MSDN 喜欢它并运行它的例子。 http://msdn.microsoft.com/en-us/library/system.net.httpwebrequest.useragent.a
我正在尝试使用 JSoup 解析 facebook 的首页,但我总是获得移动设备的 HTML 代码,而不是普通浏览器的版本(在我的例子中是 Firefox 5.0)。 我将我的用户代理设置如下: do
我正在制作一个包含 WebBrowser 元素的应用程序,我想让该应用程序显示该用户的默认浏览器的用户代理。 我知道如何通过注册表项获取默认浏览器以及如何获取浏览器的用户代理,但不知道如何将两者结合起
我正在使用 ionic、cordova 4.3、angular 和 firebase 开发一个应用程序。当我在 iOS 上运行我的应用程序时,我总是收到这两条消息: Deprecated attemp
我使用 javascript 作为用户代理将主网站重定向到移动网站。但我无法在移动设备中切换到桌面 View 。 有什么方法可以通过链接“完整网站”重定向到移动设备上的主网站? 这是我正在使用的 Ja
我正在尝试检测浏览器是否为 Safari。如果是这样,那么才做点什么。在所有其他浏览器中,执行其他操作: if ( navigator.userAgent.toLowerCase().indexOf(
我正在尝试发送一个将其用户代理设置为带有冒号的内容的请求,但是 HttpRequestMessage提示冒号是无效字符。 确切的代码看起来像这样: HttpClient client = new Ht
我想使用 MobileVLCKit 在视频播放器应用程序中设置自定义用户代理。但我不确定如何在 3.3.16 版本中设置它。如果有人对此有经验,请告诉我。谢谢。 最佳答案 我找到了解决方案。 let
只是想知道 VB.NET 在访问网页时读取的浏览器类型。例如,在我的网站上,它显示了访问我网站的所有不同浏览器的分割。 最佳答案 您没有为您的问题提供太多背景信息,但我认为您在谈论 User Agen
我正在尝试向不可靠的服务器发出请求。这个请求很好,但不是 100% 需要我的 perl 脚本成功完成。问题是服务器偶尔会死锁(我们正在尝试找出原因)并且请求永远不会成功。由于服务器认为它是事件的,它保
我正在使用以下子例程运行 40 个左右的线程: my $app = shift; my $ua = LWP::UserAgent->new(); $ua->timeout(5); my $respon
我正在尝试确定向用户显示哪种界面。如果用户使用触摸屏手机访问我的网站,我想向他们展示一个界面,否则,我想向他们展示另一个界面。 有谁知道 UserAgent 字符串值列表,以便我可以进行此检查?我知道
代码如下: $vizFile ='https://docs.recipeinvesting.com/t.aaaf.html'; my $ua = LWP::UserAgent->new; $ua->t
我将用户代理提取为: string userAgent = HttpContext.Current.Request.UserAgent; UserAgent 是否有可能为空?是否仅适用于机器人或任何合
代码如下: $vizFile ='https://docs.recipeinvesting.com/t.aaaf.html'; my $ua = LWP::UserAgent->new; $ua->t
我正在尝试使用 LWP::UserAgent 设置凭据,但我无法登录。$username、$passwd 是正确的。我不明白我应该在第三个参数中输入什么(根据dos $realm,这里是Authent
我是一名优秀的程序员,十分优秀!