Help for this page

Select Code to Download

Select or download this

  sub has_alpha
  { my $string = shift;
...
        map { index($string , $_) == -1 ? () : 1 }
            ('a' .. 'z' , 'A' .. 'Z') ;
  }