Integrating Perl and Databases

Reading the CSV file


open MARGIN, “<margin.csv” or die “open margin.csv: $!”;

while (<MARGIN>) {

chop;

($prod, $margin, $notes) = split /,/;

$prod_margin{$prod} = $margin;

$prod_notes{$prod} = $notes;

}