如何在perl中获取唯一的文件名

Question

我想在目录中创建许多具有来自许多进程的唯一名称的小文件.理论上文件名可能是相同的,所以我该如何解释？我应该用什么模块来达到这个目的？文件应该是持久的.

Answer 1

你可能想要用File::Temp它.

($fh, $filename) = tempfile($template, DIR => $your_dir, UNLINK => 0);

Answer 2

为每个文件附加时间戳,最长为毫秒:

#!/usr/local/bin/perl
use Time::HiRes qw(gettimeofday);

my $timestamp = int (gettimeofday * 1000);
print STDOUT "timestamp = $timestamp\n";
exit;

输出:

timestamp = 1227593060768

Answer 3

要使用的包是File :: Temp.