CGI.pmのアップロード後のファイル処理を高速に行うCGI.pmのアップロード後のファイル処理を高速に行う スポンサードリンク Tweet とりあえず手っ取り早くファイルアップローダを作らなくちゃならなくなったとき用の汎用ルーチンとしてCGI.pmを使ったアップローダのソースをあげておこうと思いました。自分用のメモだけど単純にアップロード後の処理が高速なので参考にされるといいかと思います。 fillename:upload.cgi #!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); use File::Copy; use File::Basename; my $upload_dir = 'upload'; # 保存先のディレクトリ my $q = CGI->new(); # CGIオブジェクト my $fh = $q->u
