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;
 . . .