Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
    use strict;
    ...
        my $packed = pack 'N6', map rand( 2**32 ), 1 .. 6;
        my @decoded = uic( $packed );
    }
    
  2. or download this
    #! perl -slw
    use strict;
    ...
        my $packed = pack 'N6', map rand( 2**32 ), 1 .. 6;
        my @decoded = uic( $packed );
    }