Help for this page

Select Code to Download


  1. or download this
      sub like_arg {
          my ($prewild, $string, $postwild) = @_;
          return "%" if $string eq "";
    ...
          return $string . "%" if $postwild;
          "";
      }