Question

怎样用Perl访问一个http页面，并打印其返回的内容 - Perl -拜托各位大神

希望用perl脚本访问sina stock API。以下代码不成功，每次程序结束都是timeout，请高手指点。多谢！#! /usr/perl/binuse warnings;use strict;use LWP::Simple;my $page_content = get(\" );? ? #用getprint替换也没结果unless (defined $page_content) {? ? die \"doc content is not undef\\n\";}print $page_content,\"\\n\";

Answer 1

现在发现是程序跑到LWP::Simple里面_trivial_http_get这个函数时候建立socket每次都超时并返回undef。[ol][*]my $sock = IO::Socket::INET->new(PeerAddr => $host,[*]? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?PeerPort => $port,[*]? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?Proto? ? => \'tcp\',[*]? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?Timeout??=> 30) || return undef;[/ol]假设get(\" http://www.sina.com.cn \");$host为 www.sina.com.cn$port 为80继续期待大侠来给个解决方法啊。 查看原帖>>