[已解决]CGI文件下载 第一行为空行

stanley_tam

虽然CGI很out了。但是有需求，要用一下。。。{:3_199:}
我用下面的方式生成下载文件test.csv的http response，为啥在下载后的文件test.csv里的第一行是空行(事实上并没有空行)？

1. use strict;
   
2. use warnings;
   
3. use CGI qw/:standard/;
   
4. 
   
5. my $q          = CGI->new;
   
6. say $q->header(
   
7.     -'Content-Type'        => qq{application/octet-stream;name="test.csv"},
   
8.     -'Content-Disposition' => qq{attachment;filename="test.csv"},
   
9. );
   
10. 
    
11. my $download_fh;open $download_fh, '<', 'test.csv';
    
12. my $buffer;
    
13. binmode $download_fh;
    
14. 
    
15. while( read($download_fh, $buffer, 100) ){
    
16.    print $buffer ;
    
17. }
    
18. close $download_fh;
    
19. 
    
20. __END__

复制代码

stanley_tam

已解决。发贴出来才看到。。。{:3_196:}
say $q->header( 中say改为print就可以了