Help for this page

Select Code to Download


  1. or download this
      $DataRead{'StringRead'} = substr($DataRead{'StringRead'}, -3);
  2. or download this
      substr($DataRead{'StringRead'}, -3) = '' ;
  3. or download this
      if ($DataRead{'StringRead'} =~ s/(\t|\n|\r|\e\[Z|\eq)\z//) {
    my $term = $1 ;
    ....
  } ;