当我需要与 Mojolicious 一起使用的唯一 ID 时,我使用了Data::UUID
它生成符合RFC 4122的长(128 位)数字
如果没有更清楚地了解您的用例,我就不能更具体了,但这似乎很好用:
#!/usr/bin/env perl
use strict;
use warnings;
use Data::UUID;
my $gen = Data::UUID -> new();
my $binary_uuid = $gen -> create ;
print $gen -> to_string ( $binary_uuid ),"\n";
print $gen -> to_hexstring ( $binary_uuid ),"\n";
print $gen -> to_b64string ( $binary_uuid ),"\n";
您可以选择输出格式。如果它对您的应用程序有用,您可以直接创建,例如:
my $gen = Data::UUID -> new();
my $uuid = $gen -> create_str ;
print $uuid, "\n";
#reformat output
print $gen -> to_hexstring ( $uuid ),"\n";