Help for this page

Select Code to Download


  1. or download this
    foreach $mitem(@missing) { 
  $result=$t->search(-forwards,"**",'end');
...
#print "\n@chars";
  
 }
  2. or download this
    do { 
               
...
  
 } until ($char_read eq $white_space);
  3. or download this
    e.g. **word  **nextword
  4. or download this
    $char_read=$t->get("$start_pt","$start_pt wordend");