Perl Win32：：GuidGen格式

siv3szwd 于 2022-11-15 发布在 Perl

关注(0)|答案(1)|浏览(235)

我有下面的代码

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

print $guid;

生成的GUID如下所示{77 C71 DCC-8825- 4 B37-A8 D3-C 0400 C885 DBB}
我想知道是否有一个选项返回此格式的guid
77 c71 dcc-8825- 4 b37-a8 d3-c 0400 c885 dbb的数据库中的数据
而不是添加以下代码

$guid =~ s/^{|}$//g;
 $guid= lc($guid);

1条答案

否，Win32：：GuidGen（）没有任何此类选项。
Win32::GuidGen()只返回由OS提供的字符串。
更快：

my $guid = lc( substr( Win32::GuidGen(), 1, -1 ) );