Help for this page

Select Code to Download


  1. or download this
     . . .
    close (ORGDB);
    
    ...
        @vals = split(/\|/,$rec);
        my $outflds =
          join "&", map "$fields[$_]=$vals[$_]", 0..$#fields;
    
  2. or download this
    my %fldname = ( company_name => 'Company',
                    street       => 'Street Address',
                           . . .
    ...
        my $htmltxt =
          join '<br> <b>', map "$fldname{$_}:</b> $fldval{$_}", @fields;
     . . .