Come possiamo creare un ID univoco in Perl

Question

Voglio creare un UniqueId. C'è una funzione che posso chiamare, in modo tale che ogni volta che la uso mi darà un nuovo ID, sempre con un valore diverso?

Answer 1

Il modo migliore è possibile utilizzare questo anche

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

Da qui è possibile conoscere Link

Answer 2

Usa Data::UUID per generare ID univoci:

use Data::UUID; 

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

Answer 3

ho usato Data::Uniqid, questo modulo ha 3 metodi:

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

Un'altra alternativa utilizzando Data::GUID, che è probabilmente un po 'meno confusione di dati :: UUID

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 5

probabilmente vale la pena notare che su macchine Windows, si potrebbe anche usare Win32:

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