PERLでUUIDを生成する

#!/usr/bin/perl

use Data::UUID;
  
for (1..10) { 
	my $ug   = new Data::UUID;
	my $uuid = $ug->create();
	
	my $str   = $ug->to_string( $uuid );
	my $uuid  = $ug->from_string( $str );
	
	print $str . "\n";
}

■実行結果

C66C9C03-6BF4-1014-8B5C-C5D41D7D5E5E
C66CCD7B-6BF4-1014-8B5C-C5D41D7D5E5E
C66D01B5-6BF4-1014-8B5C-C5D41D7D5E5E
C66D2CE9-6BF4-1014-8B5C-C5D41D7D5E5E
C66D59A7-6BF4-1014-8B5C-C5D41D7D5E5E
C66D861F-6BF4-1014-8B5C-C5D41D7D5E5E
C66DC312-6BF4-1014-8B5C-C5D41D7D5E5E
C66DEDF6-6BF4-1014-8B5C-C5D41D7D5E5E
C66E1C4F-6BF4-1014-8B5C-C5D41D7D5E5E
C66E469C-6BF4-1014-8B5C-C5D41D7D5E5E


戻る