Jak utworzyć unikatowy identyfikator w Perlu

Question

Chcę utworzyć UniqueId. Czy istnieje funkcja, którą mogę wywołać, tak, że za każdym razem, kiedy jej używam, da mi nowy identyfikator, zawsze z inną wartością?

Answer 1

Lepszy sposób można wykorzystać to również

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

Stąd można dowiedzieć się o Link

Answer 2

Zastosowanie Data::UUID do generowania unikalnych identyfikatorów:

use Data::UUID; 

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

Answer 3

użyłem Data::Uniqid, ten moduł ma 3 metody:

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 

Answer 4

Inną alternatywą użyciu Data::GUID, który jest zapewne nieco mniej kłopotliwe niż dane :: UUID

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

lub

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

Answer 5

Prawdopodobnie Warto zauważyć, że na komputerach z systemem Windows, można również użyć Win32:

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