为什么我上传文件后，变成0字节了呢？

justinyun

不太明白，请各位帮忙！
不知道哪里有问题，上传的文件都是0字节的

1. #!/usr/bin/perl -w
   
2. 
   
3. print "content-type: text/html\n\n";
   
4.         use strict;
   
5.         use CGI qw(:standard);
   
6. 
   
7. print header;
   
8. print start_html(-title=>'test upload file');
   
9. print start_form(-method=>'POST',
   
10.                  -enctype=>"multipart/form-data",
    
11.                  -action=>'/awm/dd.pl');
    
12. print <<EOF;
    
13.         <input type="file" name="uploadfile">
    
14. EOF
    
15. 
    
16. ##print start_multipart_form.filefield(-name=>'uploadfile');
    
17. print br.submit('submit','Send').end_form;
    
18. print end_html;
    
19. 
    
20. my $upload_dir = "/usr/local/aaa/uploadfile" ;
    
21. if(param()){
    
22.         my $q = new CGI;
    
23.         my $filename = $q->param('uploadfile');
    
24.         $filename =~ s/.*[\/\\](.*)/$1/;
    
25.         print $filename."<br>";
    
26.         open UPLOAD, ">$upload_dir/$filename";
    
27.         binmod UPLOAD;
    
28.         close UPLOAD;
    
29. }

复制代码

[ 本帖最后由 justinyun 于 2007-9-30 11:10 编辑 ]

ubac

看看权限设置是否正确吧

kamixp

你都不读一下不写一下怎么把文件写进去啊
http://search.cpan.org/~lds/CGI.pm-3.29/CGI.pm

justinyun

去掉binmode,然后加上写，如下：
while (my $bytesread = read($file, my $buffer, 1024)) {
                print OUTFILE $buffer;
        }

之前要加上my $file = $q->param('uploadfile');

可是如果是加binmode ，就是以二进制上传，会报IO:handle的错，需要怎么做？

kamixp

之前要加上my $file = $q->param('uploadfile');

你用的$file是一个字符串,但是

1. However, there are problems with the dual nature of the upload fields. If you use strict, then Perl will complain when you try to use a string as a filehandle. You can get around this by placing the file reading code in a block containing the no strict pragma. More seriously, it is possible for the remote user to type garbage into the upload field, in which case what you get from param() is not a filehandle at all, but a string.
   

复制代码

所以

1. To be safe, use the upload() function (new in version 2.47). When called with the name of an upload field, upload() returns a filehandle, or undef if the parameter is not a valid filehandle.
   
2. 
   
3.      $fh = upload('uploaded_file');
   
4.      while (<$fh>) {
   
5.            print;
   
6.      }

复制代码

用upload来获得文件句柄好了

[ 本帖最后由 kamixp 于 2007-10-8 21:33 编辑 ]

justinyun

嗯，两个都可以的，你的是直接while,而那上面那个有个read过程，

我想知道的是为什么二进制上传会报错，然后上传的文件就只是零字节，即没有写进去！
至于upload方式我也有试过，binmode就是会出错，不知道该怎么解决这个问题，我目前就只能把binmode给禁掉！

kamixp

1. #!c:/perl/bin/perl.exe
   
2. use CGI qw(:standard);
   
3. print header;
   
4. $fh = upload('uploaded_file');
   
5. open HT,'>fukkk.txt' or die 'open file error';
   
6.      while (<$fh>) {
   
7.            print HT;
   
8.      }

复制代码

你先用这个测,再改

不行再贴好代码和apache的error log

[ 本帖最后由 kamixp 于 2007-10-10 20:53 编辑 ]