Perl文件上傳無法初始化文件句柄

Question

我試圖使用這個非常簡單的腳本將文件上傳到服務器。 由於某種原因，它不起作用。 我在apache錯誤日志中收到以下消息：

Use of uninitialized value in <HANDLE> at /opt/www/demo1/upload/image_upload_2.pl line 15.
readline() on unopened filehandle at /opt/www/demo1/upload/image_upload_2.pl line 15.

#!/usr/bin/perl -w

use CGI;  

 $upload_dir = "/opt/www/demo1/upload/data"; 
 $query = new CGI; 
 $filename = $query->param("photo"); 
 $filename =~ s/.*[\/\\](.*)/$1/; 
 $upload_filehandle = $query->upload("photo"); 

 open UPLOADFILE, ">$upload_dir/$filename"; 
 binmode UPLOADFILE; 

 while ( <$upload_filehandle> ) 
 { 
   print UPLOADFILE; 
 } 

 close UPLOADFILE;

 1

有什么想法嗎？ 謝謝mx

Answer 1

文件上傳表單需要指定enctype="multipart/form-data" 。 請參閱W3C文檔。

此外，請注意以下幾點：

#!/usr/bin/perl

use strict; use warnings;
use CGI;

my $upload_dir = "/opt/www/demo1/upload/data"; 
my $query = CGI->new; # avoid indirect object notation

my $filename = $query->param("photo"); 
$filename =~ s/.*[\/\\](.*)/$1/; # this validation looks suspect

my $target = "$upload_dir/$filename";

# since you are reading binary data, use read to
# read chunks of a specific size

my $upload_filehandle = $query->upload("photo"); 
if ( defined $upload_filehandle ) {
    my $io_handle = $upload_filehandle->handle;
    # use lexical filehandles, 3-arg form of open
    # check for errors after open
    open my $uploadfile, '>', $target
        or die "Cannot open '$target': $!";
    binmode $uploadfile;

    my $buffer;        
    while (my $bytesread = $io_handle->read($buffer,1024)) {
        print $uploadfile $buffer
            or die "Error writing to '$target': $!";
    }
    close $uploadfile
        or die "Error closing '$target': $!";
}

請參閱CGI文檔。

Answer 2

如果您要上傳文本文件，則應在html文件的<head>中設置以下內容：

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

否則，將在標量上下文中定義$file_name = $query->param("file_name") （ print $file_name ），並在文件上下文中定義undef（ <$file_name> ）。

Perl文件上傳無法初始化文件句柄

問題描述

2 個解決方案

解決方案1
7 已采納 2010-07-07 16:33:39

解決方案2
0 2014-01-30 12:21:00

Perl文件上傳無法初始化文件句柄

問題描述

2 個解決方案

解決方案1 7 已采納 2010-07-07 16:33:39

解決方案2 0 2014-01-30 12:21:00

解決方案1
7 已采納 2010-07-07 16:33:39

解決方案2
0 2014-01-30 12:21:00