请教：关于socket的问题

lanmeibanban

我有如下代码，这个代码可以正常的得到网页的内容，也就是文本内容。但却无法将二进制文件的内容读出，请问问题是出在请求方式还是读写方式上呢？能否给出正确的方式呢？我已经翻阅了好多资料，可是怎么改也不对。还望指教。

请求网页时是200，但是请求zip文件或者MP3时就变成400了。

代码如下：

#!perl!

#

use strict;
use IO::Socket qw(EFAULT :crlf);

my $data;

$/ = CRLF;

my ($host,$port,$path);
my $address_new = shift;
($host,$port,$path) = ($1,$2||80,$3) if($address_new =~ m!^(?:http://)?(.*?)(?:[0-9]+))?(/.*)$!x);

print "[$host] [$port] [$path]\n\n";

my $socket = IO::Socket::INET->new(

PeerAddr => $host,
PeerPort => $port,
Type     => SOCK_STREAM,
Timeout  => 20

) or die "Can't connect!";

print $socket "GET $path HTTP/1.1",CRLF,CRLF;
print $socket "HOSThostport";

my $out;

read ($socket,$out,1024);
print "$out\n";

close $socket;

lanmeibanban

晕，貌似又可以了。做了一些改动。主要是换行的。我是按perl网络编程里的格式写的。但是参考了网上perl http断点续传那个例子。将请求的头换行改了下。貌似能读了。。。。

代码如下：

1. #!perl!
   
2. #
   
3. use strict;
   
4. use IO::Socket qw(:DEFAULT :crlf);
   
5. my $data;
   
6. my ($host,$port,$path);
   
7. my $address_new = shift;
   
8. ($host,$port,$path) = ($1,$2||80,$3) if($address_new =~ m!^(?:http://)?(.*?)(?::([0-9]+))?(/.*)$!x);
   
9. print "[$host] [$port] [$path]\n\n";
   
10. my $socket = IO::Socket::INET->new(
    
11. PeerAddr => $host,
    
12. PeerPort => $port,
    
13. Type     => SOCK_STREAM,
    
14. Timeout  => 20
    
15. ) or die "Can't connect:$!";
    
16. 
    
17. [color=red]print $socket "GET $path HTTP/1.1\n";
    
18. print $socket "HOST:$host\n";
    
19. print $socket "Connection: close\n\n";[/color]
    
20. 
    
21. my $out;
    
22. sysread ($socket,$out,1024);
    
23. print "$out\n";
    
24. close $socket;

复制代码

lanmeibanban

晕。怎么能不让表情显示出来。。。。好好的字符都成表情了。。不能不自动转换么？

folklore

请使用[ q u o t e ] [ /q u o t e ]将其包括起来