Help for this page

Select Code to Download


  1. or download this
    $H{$_}++ for split '', $str;
if (grep $_, @H{a..z,A..Z}) { 
  ...
}
  2. or download this
    $A[ord $_]++ for split '', $str;
if (grep $_, @A[map ord, a..z,A..Z]) {
  ...
}
  3. or download this
    $H{$_}++ for split '', $str;
if (grep $H{$_}, a..z, A..Z) { 
  ...
}
  4. or download this
    $A[ord $_]++ for split '', $str;
if (grep $A[ord $_], a..z, A..Z) {
  ...
}
  5. or download this
    use POSIX;
if ( grep { isalpha $_ } split '', $str ) {
  ...
}