Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wl
use strict;
...

my $uuid = GenerateSessionID();
print join ' ', unpack("(H2)*", $uuid);
  2. or download this
    $ ./962624.pl
a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 aa ab ac ad ae af
  3. or download this
    SV *
GenerateSessionID()
...
        RETVAL = newSVpvn(uuid, 16);
    OUTPUT:
        RETVAL
  4. or download this
    void
GenerateSessionID()
...
        ST(0) = newSVpvn(uuid, 16);
        sv_2mortal(ST(0));
        XSRETURN(1);