IO::Socket::INET的问题?

wenlingnet

UID: 1293
帖子: 16
积分: 36
在线时间: 10 分钟

1^# wenlingnet 发表于 2005-10-12 12:54

IO::Socket::INET的问题?

IO::Socket::INET的问题?
我在使用IO::Socket::INET连接网站的时候.
前面还有代码是发送数据的代码
my $connection = IO::Socket::INET->new(Proto =>"tcp",
PeerAddr =>$host,
PeerPort =>$port) || die "Sorry! Could not connect to $host \n";

print $connection $req;
my @res = <$connection>;
close $connection;
return @res;

出现以下错误:

HTTP/1.1 400 Bad Request Content-Type: text/html Date: Wed, 12 Oct 2005 03:53:43 GMT Connection: close Content-Length: 20
Bad Request

但是有些网站又可以正常连接!

beckheng

UID: 3408
帖子: 87
积分: 200
在线时间: 10 小时

2^# beckheng 发表于 2005-10-12 13:28

是不是HTTP请求有问题?能否把你的HTTP请求写出来看看?
另,如果是HTTP访问的建议使用LWP.LWP可支持多种协议的操作...当然包括HTTP与HTTPS了.不过对于HTTPS,要安装Crypt::SSLeay才能支持.

fkiori

UID: 16132
帖子: 1
积分: 2
在线时间: 10 分钟

3^# fkiori 发表于 2005-10-12 13:52

同意楼上的
$req 值是什么
有些服务器对于 http 请求要求很严格的

wenlingnet

UID: 1293
帖子: 16
积分: 36
在线时间: 10 分钟

4^# wenlingnet 发表于 2005-10-13 00:05

$req =
$req = "GET http://www.xxx.com/xxxl.asp?id=111 HTTP/1.0\n".
"Accept: */*\n".
"Accept-Language: zh-cn\n".
"Host: www.xxx.com\n".
.........
使用LWP协议出现错误!
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers

cyberblue

UID: 32182
帖子: 1
积分: 2
在线时间: 10 分钟

5^# cyberblue 发表于 2005-10-13 15:47

换行应当是[color=red]\r\.
换行应当是[color=red]\r\n[/color]吧