求助！文件上传问题！

zhouyj1982

有个地方要用到文件上传，自己先写了段测试代码,如下:

#!c:\perl\bin\perl

use File:ath;
use HTTP::File;
use File::Basename;
use FileHandle;

my $upload_path="d:/";
my $pathName = "C:/Documents and Settings/Administrator/桌面/test.htm";
my $baseName = HTTP::File::upload($pathName,$upload_path);
print $baseName;

在d:/下能找到test.htm，但是文件是个空的，而且报错如下：
error with file read: Bad file descriptor at C:/Perl/site/lib/HTTP/File.pm line
59.
不知道为什么？请高手解答一下！谢谢

zhouyj1982

是不是权限的问题呀？
没有人碰过这样的问题吗？

subs

很可能是文件名或路径有问题，再仔细检查一下。
另外，在Win32下用$^E可以获得更多信息。

zhouyj1982

现在这个功能差不多实现了，参考别人的写了一段文件上传的代码，没用HTTP::File模块，如下：
if (-d $upload_path) {
          }
          else{
                  $flag = 1;
          }
  
          open(LF, "$file_path";
          binmode(LF);

          open(FILE,">;$upload_path/$file_name";
            binmode FILE;
            while ($bytes_count = read(LF,$buff,2096)) {
                    $file_size += $bytes_count;
                print FILE $buff;
            }
            close(FILE);
            close(LF);
           
          if (-e "$upload_path/$file_name" {
          }
          else{
                  $flag = 1;
          }

          return $flag;