关于perl上传的友情提醒【附上测试代码】

coolend

1. 
   
2. sub process_upload()
   
3. {
   
4.         my $query = CGI->new();
   
5.         my $upload_filehandle        = $query->upload('uploadname');
   
6.                 undef $upload_filehandle;
   
7.                 undef $query;
   
8.                 fatal_error(  "上传完毕" );
   
9. }
   

复制代码

没有看到你写入文件
还要加入

1. 
   
2. if (open (WFD,">/tmp/upload.file")) {
   
3.     binmode (WFD);
   
4.     while (<$upload_filehandle >) { print WFD; }
   
5.     close (WFD);
   
6.      fatal_error(  "上传完毕" );
   
7. }
   
8. else {
   
9.     fatal_error(  "写入文件失败" );
   
10. }
    

复制代码

[ 本帖最后由 coolend 于 2007-6-15 09:46 编辑 ]

orangetouch

原帖由 福瑞哈哥 于 2007-6-14 13:47 发表
期待高手解答，搞不懂mod_perl。
不過可以肯定的是，在standalone Perl中，一個對象引用計數為0時，這個對象將立即銷毀。
如果這確定是CGI.pm或者mod_perl的問題，一個解決方案是把這個upload單獨設為cgi程序運 ...

对象销毁并不是说内存一定要释放吧，可能是perl内部cache起来了，并没有还给OS。所以free看起来内存是少了。下次建新对象的时候，就不用从系统直接分配内存了。

gudai

感谢楼上各位的帮忙

To: coolend ， 上传代码中本来是有写文件的，我贴的测试代码是我精简测试以找出问题代码的最终代码。
有点绕口，呵呵，就是本来代码是完整的，我去掉一段调试一段，留下问题的代码是去无可去了。然而问题依然存在。

我怀疑是mod_perl 的cache问题。

To: 福瑞哈哥
感谢指教，预计修改步骤将是先用cgi方式执行，若还是不行，则改为php的。这个问题真是让人迷惑，期待知道的达人解答。

Qiang

一贴不要多发，这里回复你了。

http://perlchina.sun126.com/cgi- ... 4095452&page=40

Rob

好久未接触CGI了，

新版的CGI.pm加入了 upload_hook 支持，
也就是说支持用一个callback来处理上传的数据， 可以逐块读入数据并写入磁盘，
默认是一次性读入所有数据， 你上传个几百M的东西， 内存当然要吃完。


建议多看POD .....


.

[ 本帖最后由 Rob 于 2007-6-19 11:13 编辑 ]