Brauche einen eindeutigen und zufälligen String...

[rolfrost]

hi,

vielen Dank!

wenn ich dich richt verstanden habe mmöchtest du eine session id erzeugen

yes.

verwende diese methode:

sub create_session_id()
{
 my $self = shift;

my $session_id = int(rand(6000000));
 $session_id = unpack("H*", pack("Nnn", time, $$, $session_id));

return $session_id;
}

gruss bleau

ergibt leider ein paar duplikate, hier meine testmethode:

my @sessions;
for(1..600){
 my $session = &create_session_id;
 push @sessions, $session;
}

my %keys = map{ $_,1}@sessions;
print scalar keys %keys, "\n"; # soll: 600 ist: 591

Viele Grüße, Rolf