弥补php上传的缺陷,这么多 perl upload程序,我们选哪个?

最早的似乎是mega upload,2004年停止了开发,它的最新版有一个致命bug,不过我修补了它。
最无耻的是tesupload,同样是开源项目,直接照抄mega upload , 重新组织修改了外围的界面
它照搬mega upload, 所以和mega upload有一个同样致命的bug.
最简单是?呵呵,网上找到一段不带进度条的程序,只是它直接上传,没有进行限制cpu时间的处理
所以局域网传大文件时,服务器CPU占用100%从上传开始直到上传结束.
最好的是ajaxupload.cgi? http://encodable.com/tech/ajaxupload/,带进度条,虽然没有
限制cpu时间,可是改起来也很简单。

还有在sourceforge.net下载量也比较大的XUpload,同样没有限制cpu时间的处理,改起来比较麻烦。
(perl不是咱的专业啊!),还有Uber-Uploader,这个看起来代码比较的复杂。就不看了。

ajaxupload从界面上,代码质量上都令我十分满意,虽然perl不是咱的专业,但是如果有用到,就难免
会有修改的需求,呵呵,挑个好的免费的东东,不容易啊。

ajaxupload不限制上传速度,所以高速上传时cpu占用会狂高,必须加上限制,不然多用户就没法用了。

修改hook函数,大概在270行附近(由于我调试源码,做了很多次删删改改,所以位置不能精确)
在 flock $logfh, 8; # release the lock 下增加一行        
select( undef, undef, undef , 0.001 ); #sleep to reduce the cpu's usage
我本地测试,这样速度就限制为0.2MB/S了。这是借鉴megaupload的,mega的最后一个参数是0.35,太大了
实际本地测试时,这样的速度就太慢了。不过0.001不能再小了,再小就等于没限制了。我也可能扩充下mega
,毕竟ajax进度条对我而言,没啥难的。

megaupload的补丁,很简单,你打开upload.cgi找到open(STDIN.....在上面加上一行,close(STDIN);
简单吧,老夫在CGI.pm(250K)里追,把perl语言入门以及其他几本手册差不多翻了个遍,每天在google,baidu
海搜,最终柳暗花明,得到了这个结果。

不带进度条,不带速度限制,单纯上传大文件的
http://blog.hxxsh.com/user1/fjlh/archives/2006/10841.shtml
ajaxupload下载地址
https://files.cnblogs.com/gudai/ajaxupload.rar