Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse -e " $key=substr ($input,0, index($input,qq/ /,-1));"
  2. or download this
    C:\>perl -MO=Deparse -e " $key=substr ($input,0, index($input,qq/ /,-1
+));"
$key = substr($input, 0, index($input, ' ', -1));
-e syntax OK