Webページのファイルのアップロードは常に破損しています

Question

ファイルのアップロードを既存のWebページに追加しようとしています。

アップロードするたびに、ファイルが破損することがあります。

ファイルハンドルにbinmodeを設定しました。また、のエンコードタイプを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関数と同じことをする2番目の意味を持ちます。また、Perlの解析ルールでは、<$hash{key}>は常にglobと扱われます。

perldoc -f perlopは説明する：角括弧の中に何があるか、どちらもファイルハンドルもファイルハンドル名、型グロブ、または型グロブリファレンスを含む単純スカラ変数、それはファイル名のパターンとして解釈されていないされている場合は

グロビングされなければ、コンテキストに応じて、ファイル名のリストまたはリスト内の次のファイル名のいずれかが返されます。この区別は構文的根拠だけで決定される。つまり、< $ x >は間接ハンドルのreadline（）ですが、< $ hash {key} >は常にglob（）です。 $ xは単純なスカラ変数ですが、$ hash {key}はそうではありません。これはハッシュ要素です。 < $ x >（余分なスペースに注意してください）は、readline（$ x）ではなくglob（ "$ x"）として扱われます。

1. 使用明示的なreadlineコール：単純なスカラー

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

へ

while (readline($article{upload_file})) 

割り当てファイルハンドル

は、回避策の少なくともいくつかあり