From 5e95f1a2b93554161629f37300dae2f74049ae3f Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Sat, 11 Apr 2015 04:55:04 +0200
Subject: [PATCH] experiments with UUID generation
---
perl/Gnome-Tomboy/lib/Tomboy.pm | 14 +++++++++++++-
perl/Gnome-Tomboy/tom | 1 +
perl/Gnome-Tomboy/x_uuid.pl | 14 ++++++++++++--
3 files changed, 26 insertions(+), 3 deletions(-)
diff --git a/perl/Gnome-Tomboy/lib/Tomboy.pm b/perl/Gnome-Tomboy/lib/Tomboy.pm
index 68b51d3..d614e6a 100644
--- a/perl/Gnome-Tomboy/lib/Tomboy.pm
+++ b/perl/Gnome-Tomboy/lib/Tomboy.pm
@@ -23,7 +23,8 @@ package Tomboy;
use strict;
-use UUID;
+# use UUID;
+use Data::UUID;
use POSIX;
my %options_passed= map { $_ => 1 } qw(--note-path); # used by start_tb() function
@@ -57,10 +58,21 @@ sub ts_ISO
sub get_uuid
{
+
+=begin comment
+
my ($uuid, $uuid_str);
UUID::generate ($uuid);
UUID::unparse ($uuid, $uuid_str);
$uuid_str;
+
+=end comment
+=cut
+
+ my $uc= new Data::UUID;
+ my $str= $uc->create_str();
+ $str =~ tr/A-F/a-f/;
+ $str;
}
sub start_tb
diff --git a/perl/Gnome-Tomboy/tom b/perl/Gnome-Tomboy/tom
index cdf03c7..fe0cee2 100755
--- a/perl/Gnome-Tomboy/tom
+++ b/perl/Gnome-Tomboy/tom
@@ -111,6 +111,7 @@ elsif ($op_code eq 'show') { find_note ('uuid', $_) foreach (@PAR); }
elsif ($op_code eq 'toc') { tom_toc(); }
elsif ($op_code eq 'csv') { tom_csv(); }
elsif ($op_code eq 'find') { find_note('title', @PAR); }
+elsif ($op_code eq 'uuid') { my $uuid= Tomboy::get_uuid(); print $uuid, "\n"; }
elsif ($op_code eq 'diff')
{
my $f1= shift (@PAR);
diff --git a/perl/Gnome-Tomboy/x_uuid.pl b/perl/Gnome-Tomboy/x_uuid.pl
index af944f8..30998ae 100755
--- a/perl/Gnome-Tomboy/x_uuid.pl
+++ b/perl/Gnome-Tomboy/x_uuid.pl
@@ -4,12 +4,16 @@ use strict;
use UUID;
use Data::UUID;
+use POSIX;
-for (my $i= 0; $i< 10; $i++)
+my $max= shift (@ARGV) || 10;
+
+for (my $i= 0; $i< $max; $i++)
{
my $u1= get_uuid_1();
my $u2= get_uuid_2();
- printf ("%3d %s %s\n", $i, $u1, $u2);
+ my $ts= ts_iso();
+ printf ("%5d %s %s %s\n", $i, $ts, $u1, $u2);
}
sub get_uuid_1
@@ -38,3 +42,9 @@ sub get_uuid_2
$str;
}
+sub ts_iso
+{
+ my $ts_iso= strftime ('%FT%T.000000%z', localtime(time()));
+ # print "ts_iso=[$ts_iso]\n";
+ $ts_iso;
+}
--
GitLab