Perlについての質問箱 37箱目

Perlについての質問箱 37箱目 at TECH

816:デフォルトの名無しさん
08/09/12 00:26:49
my $q = CGI->new(); # CGIオブジェクト
my $fh = $q->upload('filename'); # ファイルハンドル兼ファイル名
my $temp_path = $q->tmpFileName($fh); # アップロードされた #ファイルのフルパス
fileparse_set_fstype('MSDOS'); # WinIE用パス文字設定
my $filename = basename($fh); # アップロードされたファイルの # ファイル名
my $upload_path = "$upload_dir/$filename"; # 保存先フルパス
move ($temp_path, $upload_path) # File::Copy の moveメソッドで
or die $!; # 移動
close($fh); # おまじない

これを改造して、バカでかいファイルでもタイムアウトしないようにしたいのですが
URLﾘﾝｸ(www.bioinfo.jp)
これをどこに組み込めばできますか

次ページ

続きを表示

1を表示