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

mancha

最早的似乎是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下载地址

http://files.cnblogs.com/gudai/ajaxupload.rar