Help for this page

Select Code to Download


  1. or download this
    while ($_ ne '') {
   $letters{lc chop}++;
}
  2. or download this
    $letters{$_}++ for split//, lc;
  3. or download this
    $letters{lc $_}++ for split//;
  4. or download this
    while ($_ ne '') {
   $letters{lc substr($_,-1)}++;
   substr($_, -1) = "";
}