Как мы можем создать уникальный Id в Perl

Я хочу создать уникальный идентификатор. Есть ли функция, которую я могу вызвать, такая, что каждый раз, когда я использую, она даст мне новый идентификатор, всегда с другим значением?

16
perl perl-module

6 ответов

лучший способ использовать это также 

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

здесь вы можете узнать об ссылке

7

использовать Data:: UUID для создания уникальных идентификаторов:

use Data::UUID;

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

вероятно, стоит отметить, что на компьютерах Windows, вы также можете использовать Win32:

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

другая альтернатива с помощью Data:: GUID

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

или

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

Я Data:: Uniqid этот модуль имеет 3 метода:

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
0

попробуйте это:

Firebase-стиль push id guid в Perl

Он генерирует идентификатор guid в алфавитном порядке времени его создания. Полезно, если вы хотите отсортировать GUID записи в порядке времени, в котором она была создана.

0