branches/erry-devel/SrSv/Insp/testUUID.pl

   1 #!/usr/bin/perl
   2 #       This file is part of SurrealServices.
   3 #
   4 #       SurrealServices is free software; you can redistribute it and/or modify
   5 #       it under the terms of the GNU Lesser General Public License version 2.1,
   6 #       as published by the Free Software Foundation.
   7 #
   8 #       SurrealServices is distributed in the hope that it will be useful,
   9 #       but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 #       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 #       GNU General Public License for more details.
  12 #
  13 #       You should have received a copy of the GNU Lesser General Public License
  14 #       along with SurrealServices; if not, write to the Free Software
  15 #       Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  16
  17
  18 =cut
  19
  20 THIS CODE IS alpha only, and untested. Don't just trust it blindly.
  21
  22 =cut
  23
  24 use strict;
  25 use warnings;
  26 # the next 2 lines are temp, you should use the 3rd.
  27 use UUID;
  28 import SrSv::Insp::UUID qw( decodeUUID encodeUUID );
  29 #use SrSv::Insp::UUID;
  30
  31 my $int = decodeUUID('751AAAAAA');
  32 print "$int\n";
  33 print log($int)/log(2), "\n";
  34 encodeUUID($int);