it-swarm.dev

So erstellen Sie eine eindeutige ID in Perl

Ich möchte eine UniqueId erstellen. Gibt es eine Funktion, die ich aufrufen kann, sodass mir jedes Mal, wenn ich sie benutze, eine neue ID mit einem anderen Wert zugewiesen wird?

17
user2568702

Den besseren Weg kannst du auch nutzen

use UUID::Generator::PurePerl;

sub create_search_id {
    my $this =shift;
    my $args=shift;
    my $ug = UUID::Generator::PurePerl->new();
    my $uuid1 = $ug->generate_v1();
    return $uuid1;
}

Hier erfahren Sie mehr über Link

7
Developer

Verwenden Sie Data :: UUID , um eindeutige IDs zu generieren:

use Data::UUID;

$ug    = Data::UUID->new;
$uuid1 = $ug->create();   # Or create_str()
21
RichieHindle

Es ist wahrscheinlich erwähnenswert, dass Sie auf Windows-Computern auch Win32 verwenden könnten:

use Win32;    
my $guid = Win32::GuidGen();
4
ianbeks

Eine weitere Alternative mit Data :: GUID

use Data::GUID;
my $guid = Data::GUID->new;
my $uniqueIdString = guid->as_string;

oder

use Data::GUID;
my $uniqueIdString = Data::GUID->new->as_string;
4
krispy

Ich habe Data :: Uniqid verwendet, dieses Modul hat 3 Methoden:

use Data::Uniqid qw ( suniqid uniqid luniqid );
$id = suniqid; #genrates a very short id valid only for the localhost and with a liftime of 1 day
$id = uniqid;  #generates a short id valid on the local Host 
$id = luniqid; #generates a long id valid everywhere and ever
1
Suic

Versuche dies:

Firebase-Stil Push-ID-Guid in Perl

Es wird eine alphabetisch geordnete Guid zum Zeitpunkt der Erstellung erstellt. Nützlich, wenn Sie Datensatz-Guids in der Reihenfolge sortieren möchten, in der sie generiert wurden.

0
Rob de la Cruz