大佬教程收集整理的这篇文章主要介绍了如何使用Perl为大型文件提供服务？，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
我尝试逐行打印文件,但这不会导致浏览器在抓取整个文件之前提示下载：
@H_616_4@use Tie::File; open my $fh,'<','/path/to/file.txt'; tie my @file,'Tie::File',$fh or die 'Could not open file: $!'; my $size_in_bytes = -s $fh; print "Content-type: text/plain\n"; print "Content-Length: $size_in_bytes\n"; print "Content-Disposition: attachment; filename=file.txt\n\n"; for my $line (@filE) { print $line; } untie @file; close $fh; exit;我想回应“Perl是否有php ReadFile Equivelant”,我想我的回答是“但它并不真的需要一个”.
我已经使用了php的手动文件IO控件,它们很痛苦,相比之下,Perls只是如此易于使用,因为一个适合所有人的功能似乎过度杀戮.
此外,您可能希望查看X-SendFile支持,并基本上向您的Web服务器发送一个标头,告诉它要发送什么文件：http://john.guen.in/past/2007/4/17/send_files_faster_with_xsendfile/(当然假设它有足够的权限来访问该文件,但该文件通常不正常可通过标准URI访问)
编辑注释,最好在循环中执行它,我用硬盘驱动器测试上面的代码,并且它隐式地尝试将整个事物存储在一个不可见的临时变量中并且吃掉你所有的ram.
替代使用块
以下改进的代码以8192个字符块的形式读取给定文件,这样可以提高内存效率,并且可以获得与我的磁盘原始读取速率相当的吞吐量. (我还指出它/ dev / full适合和咯咯笑,并且获得了500mb / s的健康吞吐量,它并没有吃掉我所有的公羊,所以一定很好)
@H_616_4@{ open my $fh,'/dev/sda' ; local $/ = \8192; # this tells IO to use 8192 char chunks. print $_ while defined ( $_ = scalar <$fh> ); close $fh; }应用jrockways建议
@H_616_4@{ open my $fh,'/dev/sda5' ; print $_ while ( sysread $fh,$_,8192 ); close $fh; }这实际上使性能提高了一倍……在某些情况下,我获得了比DD更好的吞吐量O_o.
以上是大佬教程为你收集整理的如何使用Perl为大型文件提供服务？全部内容，希望文章能够帮你解决如何使用Perl为大型文件提供服务？所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。