Help for this page

Select Code to Download

Select or download this

open(PARMFILE, "< $parmfile")
  or die "unsuccessful open of input file $parmfile";
while (<PARMFILE>) {
...
foreach $item (sort keys %dbparms) {
  print "$item => $dbparms{$item} \n";
}

Select or download this

foreach $item (sort keys %dbparms) {
  $" = ',';
  print "$item => @{$dbparms{$item}} \n";
}