Help for this page

Select Code to Download


  1. or download this
    Undefined subroutine &main::guid called at H:\bin\foo.pl line 11.
  2. or download this
    use Guid;
print "Guid = " . guid() . "\n";
  3. or download this
    use Guid qw(guid);
print "Guid = " . guid() . "\n";
  4. or download this
    use Guid;
print "Guid = " . Guid::guid() . "\n";
  5. or download this
    package Guid;
use strict;
...
    my $clockIdOffset = 2**15;  #Turn on Clock High bit
    my $timeOffset = "122192928000000000";
    [...And On...]