perlのCGIでのファイルアップロード処理

最低限のコードで

use File::Copy;
use CGI;

my $cgi = new CGI;  # 仮ファイルが勝手に作られ、勝手に消える
my $upfile  = $cgi->param('upfile');       # アップロードしたときのファイル名(hoge.txtとか)
my $tmpfile = $cgi->tmpFileName($upfile);  # アップロードされた仮ファイル名(/var/tmp/xxxxとか)

File::Copy::copy($tmpfile, "/data/piyo.txt");  # 好きな場所にコピーするなりなんなり

<form enctype="multipart/form-data" method=post>
  <input type="file" name="upfile">
  <input type="submit" value="アップロード開始">
</form>

参考

• Perl 「 モジュール 」 CGI 一時ファイルにアクセスする tmpFileName() (0x121)｜Perl Perl_2｜blog20100901
• Perlでファイルアップロード - 足跡
• ファイルをアップロードする方法