Help for this page

Select Code to Download


  1. or download this
    Q:\> perl -wle "sub c{my$c=0;$_[0]=~m/(?:(.)(?{$c += ord($1);}))*^/;$c
+}c('foo')"
Variable "$c" will not stay shared at (re_eval 1) line 1.
  2. or download this
    sub getChecksum {
    unpack '%A*', $_[0]
};