On 9/1/07, Tim Bowden <[EMAIL PROTECTED]> wrote:
> I'm writing a small cgi app that takes an uploaded file, stores it on
> disk and does some operations to it. To avoid multiple instances
> clobbering each other, I think I need to find a unique key to use in
> creating a dir specifically for use by that instance. Can anyone point
> me in the right direction here?
You shouldn't be able to mkdir() with a directory name that already
exists, so it's possible to ensure a unique key with something like
this, using Unix filenames:
my $temp_dir = "/tmp";
my $start_time = time;
my $unique_key;
for (my $n = 0; "forever"; $n++) {
$unique_key = "unique$start_time$n";
last if mkdir "$temp_dir/$unique_key", 0755;
die "mkdir '$temp_dir/$unique_key' failed: $!" if $n == 1000;
}
print "This program has created a directory named $unique_key.\n";
But for temporary files and directories, File::Temp already does the
heavy lifting:
http://search.cpan.org/~tjenness/File-Temp-0.18/Temp.pm
Hope this helps!
--Tom Phoenix
Stonehenge Perl Training
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
