perl - modules - metacpan

Cómo podemos crear una identificación única en Perl

Question

Quiero crear un UniqueId . ¿Hay alguna función a la que pueda llamar, de manera que cada vez que la use me dé un nuevo Id, siempre con un valor diferente?

Answer 1

La mejor manera de usar esto también

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;
}

Desde aquí puedes aprender sobre Link

Answer 2

Otra alternativa usando Data::GUID

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

o

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

Answer 3

Probablemente vale la pena señalar que en las máquinas con Windows, también puede usar Win32:

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

Answer 4

Prueba esto:

Firebase-style push guid guid en Perl

Genera una guía en orden alfabético de la época en que se generó. Útil si desea ordenar las guías de registro en el orden de tiempo en que se generó.

Answer 5

Use Data::UUID para generar ID únicas:

use Data::UUID;

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

Answer 6

Data::Uniqid , este módulo tiene 3 métodos:

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