求助！文件上傳問題！

zhouyj1982

有個(gè)地方要用到文件上傳，自己先寫了段測試代碼,如下:

#!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，但是文件是個(gè)空的，而且報(bào)錯(cuò)如下：
error with file read: Bad file descriptor at C:/Perl/site/lib/HTTP/File.pm line
59.
不知道為什么？請高手解答一下！謝謝

zhouyj1982

是不是權(quán)限的問題呀？
沒有人碰過這樣的問題嗎？

subs

很可能是文件名或路徑有問題，再仔細(xì)檢查一下。
另外，在Win32下用$^E可以獲得更多信息。

zhouyj1982

現(xiàn)在這個(gè)功能差不多實(shí)現(xiàn)了，參考別人的寫了一段文件上傳的代碼，沒用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;