How to get a unique filename in perl

Question

I want to create in a directory many small files with unique names from many processes. Theoretically filenames may be the same, so how do I account for that? What module I should use for this purpose? Files should be persist.

Answer 1

You probably want to use File::Temp for that.

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

Answer 2

The package to use would be File::Temp.

Answer 3

Append a timestamp to each file, up to the millisecond:

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

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

Output:

timestamp = 1227593060768

Answer 4

Without any modules you could use something like this: time() . "_" . rand()