Help for this page

Select Code to Download


  1. or download this
    sub subindex inline{
        $_[0]=substr($_[0],index($_[0],$_[1],$_2]))
    }
    
  2. or download this
    trim(string,tt/leftcharacter_set/, tt/right_character_set/);
    
  3. or download this
    for($var){
       when($_ eq 'b'){ ...;} # means if ($var eq 'b') { ... ; last}
       when($_ >'c'){...;} 
    } # for
    
  4. or download this
    my rc==0;
    for(...){
    ...
    if ($rc==0){...}
    elif($rc==1){...}
    elif($rc==3){...}
    
  5. or download this
    for ...{
       when (...);
    ...
       1: ...   
       2: ...
    }