Help for this page

Select Code to Download


  1. or download this
    use List::Util qw( sum );
my $hex = '0FB0306F207265616420746869733F';
...
              map { /../g }
              $hex;
my $sum_as_hex = sprintf '%X', $sum;
  2. or download this
    use List::Util qw( sum );
my $hex = '0FB0306F207265616420746869733F';
my $sum = sum map hex, $hex =~ /../g;
my $sum_as_hex = sprintf '%X', $sum;