Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    #
    ...
        say "  \$ret   => '$ret'";      # Optional return args (in parens)
        say "  \$rargs => '$rargs'";    # Optional return args (no parens)
    }
    
  2. or download this
    Match!
      $full  => 'private function convert_wa_date_strings(iv_beg string, i
    +v_end string, iv_read_date date, iv_step char(6)) returns (date, date
    +, char(1))'
    ...
      $args  => 'iv_beg string, iv_end string, iv_read_date date, iv_step 
    +char(6)'
      $ret   => '(date, date, char(1))'
      $rargs => 'date, date, char(1)'