怎么访问端口读取1字节后断开?

cnstudent

- -
不成功...
以下使用80端口读取网站为例.
根据网络监视,完全读取了才断开.
use IO::Socket;

$sock = new IO::Socket::INET(PeerAddr => 'perldoc.perl.org', PeerPort => '80', Proto => 'tcp');
print $sock "GET /index-functions.html HTTP/1.1\r\n";
print $sock "Host: perldoc.perl.org\r\n";
print $sock "X-Forwarded-For: ". int(rand(255)).'.'.int(rand(255)).'.'.int(rand(255)).'.'.int(rand(255))."\r\n";
print $sock "Connection: Close\r\n\r\n";
sysread($sock, $get, 1);
close($sock);

[ 本帖最后由 cnstudent 于 2008-3-8 19:18 编辑 ]

flw

你自己仔细查一下原因，程序员要学会 debug 自己的程序。
我可以告诉你的是你这个方法是可行的。具体出了什么问题结合你的环境看一下。
我觉得应该不会有什么问题。

cnstudent

我也是从早上一直在找原因...
问题出在sysread();
去掉之后只上传没下载
加上就把整个页面下载了下来但是$get只取到了1字节

cnstudent

各位可以帮我检查一下原因在哪里吗?
难道sysread是下载完再取?

junchen2

sysread($sock, $get, 1);
问题可能是sysread FILEHANDLE, SCALAR, LENGTH, OFFSET