HTTP下载显示跑马灯而非进度条，Perl脚本异常排查求助

你的脚本核心问题是HTTP响应头的换行符不符合标准，导致现代浏览器无法正确解析Content-Length字段：

• HTTP协议明确要求响应头的每行必须以**CRLF（\r\n）**结尾，但你的脚本里只用了单纯的LF（\n）。早期浏览器对换行符兼容性宽松，能识别LF分隔的头，但现在Chrome、Edge、Firefox等主流浏览器都严格遵循规范，会将格式不标准的头视为无效，直接忽略Content-Length字段。没有这个字段，客户端无法提前获取文件总大小，只能显示无进度的跑马灯样式。
• 另外，Content-Disposition里的filename如果包含空格、特殊字符，当前写法也不符合RFC标准，但这不是进度条异常的直接原因。

$file = "$ENV{DOCUMENT_ROOT}$dir/$arch";
$len = -s $file;
# 用CRLF作为头的换行符，严格遵循HTTP规范
print "Content-Type: application/octet-stream\r\n";
# 给filename加双引号，兼容含特殊字符的文件名
print "Content-Disposition: attachment; filename=\"$arch\"\r\n";
# 头与正文之间用两个CRLF分隔
print "Content-Length: $len\r\n\r\n";

open FILE, "< $file" or Error('Cannot read '.$arch);
binmode FILE;
local $/ = \32768;
while (<FILE>){
    print $_;
};
close FILE;

1. 严格使用CRLF是让客户端正确解析响应头的关键，能彻底解决进度条异常问题。
2. 给filename添加双引号可以避免文件名包含特殊字符时出现解析错误，提升脚本兼容性。

内容的提问来源于stack exchange，提问作者LEX-DOCTOR APLICACIONES