PerlでユニークIDを作成する方法

Question

ユニークIDを作成したいと思います。私が呼び出すことのできる機能はありますか？それを使用するたびに、いつも別の価値を持った新しいIDを私に与えるでしょうか？

Answer 1

をあなたがここからも

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

をこれを使用することができ、より良い方法あなたはおよそLink

Answer 2

使用Data::UUID固有のIDを生成する：

use Data::UUID; 

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

Answer 3

私は、このモジュールを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 

Answer 4

Windowsマシン上で、あなたはまた、Win32のを使用することができることは注目に値するおそらく間違いなく、わずかに少ない混乱データ:: UUID

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

または

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

Answer 5

よりData::GUIDを使用して別の方法、：

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