Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re^4: Generate a unique ID

by BrowserUk (Pope)
on Nov 16, 2010 at 06:51 UTC ( #871648=note: print w/replies, xml ) Need Help??

in reply to Re^3: Generate a unique ID
in thread Generate a unique ID

I started out looking to create unique filenames, that during a later stage of the processing, I could differentiate from those created by other runs of the code, via globbing, .

Once sundialsvc4 suggested using a directory--which hadn't crossed my mind earlier--using a temporary directory and creating all my files within it make perfect sense.

I'm not sure that module buy me anything useful over something like:

my $path = $ENV{ TMP }; my $dir = 'temp' . join'', map{ ('A'..'Z')[rand 26] } 1 .. 4; ++$dir until mkdir $path . $dir or $! != 17 and die "$path$dir : $!;

But I guess that depends whether this code will ever make it to another platform. I don't see that ever happening.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://871648]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (7)
As of 2018-04-24 09:53 GMT
Find Nodes?
    Voting Booth?