Perl HTTP 多线程下载合并之换行符错误

写了一个小程序，用HTTP多线程下载并合并文件，核心下载代码如下：     my $ua = LWP::UserAgent->new;     my $head = HTTP::Request->new(GET => $url,                                 HTTP::Headers->new(                                     Range => "bytes=$start-$end"                                     #这个头用来标记部分下载开始结束位置                                  )                                  );     my $resp = $ua->request($head);     open FILE,">C:/tmp/txt_$partial.dat";     print FILE $resp->content;     close FILE; 合并代码如下：     open FILE,'>c:/tmp/final.txt';     for(1..n){         open TMP,"c:/tmp/txt_$_.dat";         $r = sysread TMP,$buf,1024*10;         while($r){             syswrite FILE,1024*10;             $r = sysread TMP,1024*10;         }         close TMP;     }     close FILE; 使用一个rar文件作为测试用途，结果发现合并后的代码无法打开，而且字节数有增加。换一个文本文件txt作测试，结果发现前后对比如下 前：   Accept-Language: zh-cn   UA-cpu: x86   Accept-Encoding: gzip,deflat 后：   Accept-Language: zh-cn^M   UA-cpu: x86^M   Accept-Encoding: gzip,deflate^M 可以明显看到，每一行的结束多了一个符号^M，这又是由于在不同系统中换行符的不同造成的。Windows编辑器产生换行回车两个符号/n/r，而unix下只有一个/n，经过socket中间的传输转化就会在不同的系统产生错误。 解决方法，在下载分割文件的时候，写入时使用syswrite写入分割块大小的数据，则产生的文件不会有错误。代码如下     my $ua = LWP::UserAgent->new;     my $head = HTTP::Request->new(GET => 'http://localhost/PerlCGI/key.txt',                                 HTTP::Headers->new(                                     Range => "bytes=$start-$end"                                  )                                  );     my $resp = $ua->request($head);     syswrite FILE,$resp->content,1024*1000;     close FILE; 每次都用一个小程序来扩充并测试一些功能，在此基础上解决发现的问题并继续完善发展自己的代码。