end0tknr's kipple - 新web写経開発

http://d.hatena.ne.jp/end0tknr/ から移転します

perlのFile::Temp による一時ファイルの作成

http://search.cpan.org/perldoc?File%3A%3ATemp

use strict;
use utf8;
use Date::Calc qw/Today_and_Now/;
use File::Temp qw/tempfile/;


my $now_str = sprintf("FILE_HEAD_%04d%02d%02d_%02d%02d%02d",Today_and_Now());

my ($fh, $filename) = tempfile($now_str ."_XXXXXXXXXX",TMPDIR=>1);

のようにテンプレートを指定して書くと、一時ファイルの名称を

/tmp/FILE_HEAD_20150408_124408_HfsJ7MjaZF

のようにもできます。
( HfsJ7MjaZF の部分がランダム文字列 )