Help for this page

Select Code to Download


  1. or download this
    use strict;

...
open OUTHANDLE, ">$uuid_store" || die "Can't open $uuid_store for writ
+e\n";
print OUTHANDLE ++$MY_UID;
close OUTHANDLE;
  2. or download this
    % perl gen_uid.pl
The uid you are looking for : 1
...
The uid you are looking for : 5
% perl gen_uid.pl
The uid you are looking for : 6