Help for this page

Select Code to Download


  1. or download this
    johngg@aleatico:~$ perl -Mstrict -Mwarnings -E 'say q{};
my $char = q{0x388c818ca8b9251b393131c08a736a67ccb19297};
...
   substr( $char, length( $char ) - 6, 6 );'

0x388c ... b19297
  2. or download this
    johngg@aleatico:~$ perl -Mstrict -Mwarnings -E 'say q{};
my $char = q{0x388c818ca8b9251b393131c08a736a67ccb19297};
...
   substr( $char, -6 );'

0x388c ... b19297