Help for this page

Select Code to Download


  1. or download this
    sub first_character_matches {
  return( ((lc shift) ^ (lc shift)) =~ /^\0/ );
}
  2. or download this
    1) poerbook:~% perl -wle 'print "yes" if ( ((lc shift) ^ (lc shift)) =
+~ /^\0/ )' abc DBC
1) poerbook:~% perl -wle 'print "yes" if ( ((lc shift) ^ (lc shift)) =
+~ /^\0/ )' abc ABC
yes