網頁文件上傳總是被損壞

Question

我想將文件上傳添加到現有的網頁上。

每當我上傳我得到一個損壞的文件。

我確保在文件句柄上設置binmode。我也有我的輸入enxtype設置爲multipart/formdata在我的形式。

我的代碼如下

$article{upload_file_name} = $cgi->param('upFile'); 
$article{upload_file}  = $cgi->upload('upFile'); 

if ($article{upload_file_name} ne "" or $article{upload_file_name} ne null) { 

    open(UPLOADS, ">$uploads_dir/$article{upload_file_name}") 
      or die "Could not open $uploads_dir/$article{upload_file_name}"; 

    binmode UPLOADS; 

    while (<$article{upload_file}>) { 
     print UPLOADS; 
    } 

    close UPLOADS; 
} 

我也試過這個

$article{upload_file} = $cgi->param('upFile'); 

if ($article{upload_file} ne "" or $article{upload_file} ne null) { 

    open(UPLOADS, ">$uploads_dir/$article{upload_file}") 
      or die "Could not open $uploads_dir/$article{upload_file}"; 
    binmode UPLOADS; 

    while (<$article{upload_file}>) { 
     print UPLOADS; 
    } 

    close UPLOADS; 
} 

Answer 1

<$article{upload_file}> 

沒有做什麼你覺得它在做什麼。鑽石運算符（<>）用於代替Perl的readline函數，但它具有與Perl的glob函數完全相同的功能。在Perl的解析規則中，<$hash{key}>總是被視爲glob。

perldoc -f perlop說明：

如果角度括號內什麼是既不是文件句柄，也不含有一個文件句柄名，類型團，或類型團參考簡單的標量變量，它被解釋爲一個文件名模式被晶片被保護，並根據上下文返回列表中的文件名列表或下一個文件名。這種區別僅在句法理由上確定。這意味着< $ x >始終是來自間接句柄的readline（），但< $ hash {key} >始終是glob（）。這是因爲$ x是一個簡單的標量變量，但$ hash {key}不是 - 它是一個散列元素。即使< $ x >（注意額外的空間）被視爲glob（「$ x」），而不是readline（$ x）。

至少有一對夫婦的解決方法：

1. 使用顯式調用readline：

   while (readline($article{upload_file})) 
   

2. 分配文件句柄簡單的標量

   my $upload_fh = $article{upload_file}; 
   ... 
   while (<$upload_fh>)