Help for this page

Select Code to Download


  1. or download this
    sub v{
        ord($_[0])-ord("A")+1
    }
    
  2. or download this
    sub v {
        my (@letters) = split //, $_[0];
    ...
    }
    
    print v("AB"),"\n";