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
