perl

アップロードされたファイルを一時ディレクトリに保存したい。
しかし何ページかの間は保存したい。

みたいな事がありまして、File::Copyの出番。

use File::Copy;

my $fh = $req->upload('file');
copy($fh, $path);

とまぁ、ここまでは良いんですが更に何らかの処理をしたい時は

seek $fh, 0, 0;

としてやらないとファイルポインタがおしりのまんま。