Hallo zusammen
Ich muss ein PHP Script umschreiben in Perl indem eine
eindeutige 32-stellige ID generiert wird.
md5 (uniqid (rand()))

Wie kann ich das mit Perl erstellen?

Besten Dank schon mal für Eure Hilfe.

Dafür gibt's die Funktion rand (siehe perldoc -f rand) und ein Modul (Digest::MD5). Nur was das uniqid macht, weiß ich nicht.

edit pq: s/Digenst/Digest/\n\n

<!--EDIT|pq|1142938353-->

du kannst das komplette konstruktur z.b. durch



ersetzen!

[quote=gates,21.03.2006, 00:42]Hallo zusammen
Ich muss ein PHP Script umschreiben in Perl indem eine
eindeutige 32-stellige ID generiert wird.
md5 (uniqid (rand()))

Wie kann ich das mit Perl erstellen?[/quote]
rand() ist klar. Bei uniqid() kann man sich eine Funktion vorstellen, die z. B. einen String aus Timestamp + Prozess-ID + Zufallszahl bildet. Das wird schon sehr einmalig. Ein Problem hast du dann eher durch md5(), weil eine Hashfunktion auch aus einer eindeutigen ID per se eben nicht einen ebenso eindeutigen Wert macht. Aber für deine Zwecke wird's vielleicht reichen.

uniqid generiert eine eindeutige ID basierend auf der aktuellen Zeit in Mikrosekunden. Das rand wird dabei als Prefix fuer diese eindeutige ID genommen. Wenn mans noch mehr "unique" will, kann man dem uniqid noch als 2. Parameter ein TRUE mitgeben.

[cpan=uniq id]erleuchtet[/cpan].

Aber nur ohne das Leerzeichen im Link ;)

schick sind auch:

UUID und/oder
Data::UUID

Wenn der Code im Apache läuft, hat man üblicherweise Zugriff auf $ENV{UNIQUE_ID}.