Help for this page

Select Code to Download


  1. or download this
    my $string = `uuidgen`;
$string =~ tr [\-abcdef] [9012345];
my $first_10 = substr($string, 0, 10);
  2. or download this
    use Data::UUID;
my $string = Data::UUID->new->create_str;
$string =~ tr [\-abcdef] [9012345];
my $first_10 = substr($string, 0, 10);
  3. or download this
    use UUID::Tiny;
my $string = create_UUID();
$string =~ tr [\-abcdef] [9012345];
my $first_10 = substr($string, 0, 10);