Cách chúng tôi có thể tạo một Id duy nhất trong Perl

Question

Tôi muốn tạo một UniqueId. Có chức năng nào tôi có thể gọi, sao cho mỗi khi tôi sử dụng nó sẽ cho tôi một Id mới, luôn luôn có một giá trị khác?

Answer 1

Cách tốt hơn bạn có thể sử dụng điều này cũng

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

Từ đây bạn có thể tìm hiểu về Link

Answer 2

Sử dụng Data::UUID tạo ID duy nhất:

use Data::UUID; 

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

Answer 3

tôi đã sử dụng Data::Uniqid, module này có 3 phương pháp:

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

Một thay thế sử dụng Data::GUID, mà được cho là hơi ít gây nhầm lẫn hơn dữ liệu :: UUID

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

hoặc

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

Answer 5

Có lẽ đáng chú ý là với các máy Windows, bạn cũng có thể sử dụng Win32:

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