我们如何在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

如果您对可以使用的模块有一些限制并且您在 Linux 上运行脚本，则可以使用以下解决方法：

my $uuid = `cat /proc/sys/kernel/random/uuid`;

您无需在系统上安装新软件包即可使用它。

Answer 3

更好的方法也可以使用它

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 4

使用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 5

可能值得注意的是，在Windows计算机上，您也可以使用Win32：

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