我怀疑这可能根本不是 perl 问题,而是与浏览器有关。 我有一个简短的程序可以下载高分辨率版本的照片。工作正常。 我试图让它适用于多个文件。它只下载第一个。无论我做什么,它都不会再下载了。 有什么想法吗?
print STDOUT qq(Content-type: application/force-download\n);
print STDOUT qq(Content-Disposition:attachment;filename=$photo\n\n);
print @fileLines;
当然还有更多代码,但这就是实际下载的内容。