perl - Perl で一意の ID を作成する方法

Question

UniqueIdを作成したい。私が呼び出すことができる関数はありますか?それを使用するたびに、常に異なる値を持つ新しい ID が与えられますか?

Answer 1

Data::UUIDを使用して一意の ID を生成します。

use Data::UUID;

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

Answer 2

これを使用するより良い方法も

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

ここからUUID::Generator::PurePerlについて学ぶことができます

Answer 3

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;

Answer 4

Windows マシンでは、Win32 も使用できることに注意してください。

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

Answer 5

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 6

これを試して：

Perl の Firebase スタイルのプッシュ ID GUID

生成された時刻のアルファベット順に GUID を生成します。生成された時間順にレコード GUID を並べ替える場合に便利です。