使用binmode后文件上传还是变形? 高手指点.

jayson999

使用binmode后文件上传还是变形? 高手指点.

环境：liunx ,用PERL写的上传文件cgi代码如下:
my ($tmpfilename) = $upfile =~ m|([^/:\\]+)$|;
my ($buffer);
open (FILE,">$basedir/$tmpfilename";
binmode(FILE);
while (read($upfile,my $buffer,204) {
      print FILE $buffer;
      }
close (FILE);

问题是： 可以上传文件，超过10K的上传不了，更严重的问题是文件没法用，原文件5K上传后变成8K.

已经启用了binmode(FILE);二进制传输，怎么还会出错？ 高手指点一下，谢谢~

月魔

先把你的代码放到code里

jayson999

sorry.没注意代码显示这个问题


环境：liunx ,用PERL写的上传文件cgi代码如下:

1. 
   
2. my ($tmpfilename) = $upfile =~ m|([^/:\\]+)$|;
   
3. my ($buffer);
   
4. open (FILE,">$basedir/$tmpfilename");
   
5. binmode(FILE);
   
6. while (read($upfile,my $buffer,2048)) {
   
7.    print FILE $buffer;
   
8.    }
   
9. close (FILE);
   

复制代码

问题是： 可以上传文件，超过10K的上传不了，更严重的问题是文件没法用，原文件5K上传后变成8K. 已经启用了binmode(FILE);二进制传输，怎么还会出错？ 高手指点一下，谢谢~

alvingao

1. 超过10K上传不了，去检查一下$CGI::POST_MAX 的值以及Web服务器是否有相应的上限设置。

2. $upfile是什么？把相关的定义也贴出来。估计你的问题是由于没有对数据源binmode。

3. 一个小问题，两处的my $buffer，虽然不算错误，但似乎没必要。

flw

> 原文件5K上传后变成8K
你把那 5k 和那 8k 观察一下，有什么变化？
xxd 或者 od 命令就可以看。如果自己不懂如何看，就发上来让大家看看。

jayson999

就1个文件(upfile1.cgi), 表单提交本文件
问题：
加了$CGI:OST_MAX参数还是一样的问题，3K以下文件上传后正常可以使用，3K到10K文件上传后没法用，超过10K的上传不了(界面无响应)。已经启用了binmode(FILE);二进制传输，怎么还会出错？ 高手指点一下，再次感谢~

所有测试代码如下:

1. 
   
2. 
   
3. #!/usr/bin/perl
   
4. 
   
5. ## 定义初始参数 ##
   
6. use CGI;
   
7. $CGI::DISABLE_UPLOADS = 0;
   
8. $CGI::POST_MAX = 1024 * 1024 ;
   
9. my $maxsize = 1024;
   
10. my $basedir="/test";
    
11. 
    
12. my $query=CGI->new();
    
13. my $action=$query->param('action');
    
14. my $upfile=$query->upload('upfile');
    
15. 
    
16. my %Mode = (
    
17.   'propage1'  => \&propage1,
    
18.   'propage2'  => \&propage2,
    
19.    );
    
20. 
    
21. if ($Mode{$action}) {
    
22. $Mode{$action}->();
    
23. } else {
    
24. &propage1;
    
25. }
    
26. 
    
27. ## 显示界面1 ##
    
28. sub propage1 {
    
29. my $showit = qq~
    
30. <form action=upfile1.cgi method=post enctype='multipart/form-data'>
    
31. <input type=hidden name='action' value='propage2'>
    
32. 请选择上传文件:<input type=file size=26 name='upfile'><br><br>
    
33. <input type=submit class=btn value=\"  立即上传  \"></form>~;
    
34. print $showit;
    
35. }
    
36. 
    
37. ## 显示界面2(处理文件上传) ##
    
38. sub propage2 {
    
39. my $upfile=$query->upload('upfile');
    
40. my $size = (stat($upfile))[7];
    
41. &error("<br>文件大小不能超过 1M ！") if ($size > $maxsize * 1024);
    
42. my $showit;
    
43. 
    
44. if ($upfile) {
    
45. my ($tmpfilename) = $upfile =~ m|([^/:\\]+)$|;
    
46. my ($buffer);
    
47. open (FILE,">$basedir/$tmpfilename");
    
48. binmode($upfile);
    
49. binmode(FILE);
    
50. while (read($upfile,my $buffer,2048)) {
    
51.       print FILE $buffer;
    
52.       }
    
53. close (FILE);
    
54. close ($upfile);
    
55. 
    
56. $showit = qq~<br>上传文件成功！~;
    
57. }else {
    
58. $showit = qq~<br>没有选择配置文件！~;
    
59. }
    
60. print $showit;
    
61. }
    
62. 
    

复制代码

jayson999

up

福瑞哈哥

原帖由 jayson999 于 2007-3-24 23:12 发表
就1个文件(upfile1.cgi), 表单提交本文件
问题：
加了$CGI:OST_MAX参数还是一样的问题，3K以下文件上传后正常可以使用，3K到10K文件上传后没法用，超过10K的上传不了(界面无响应)。已经启用了binmode(FILE); ...

经过测试，你的代码可以用。
有一点，你的sub propage1根本就没有打出header，所以要加上。
这种示例代码网上太多了吧，随便搞一个就行，你的代码可真ugly.

flw

原帖由 jayson999 于 2007-3-24 23:12 发表
3K以下文件上传后正常可以使用，3K到10K文件上传后没法用，超过10K的上传不了(界面无响应)。已经启用了binmode(FILE); ...

我在前面的回复没看到？