Hi all experts,

May I know how to read a csv file and read the content in a hash in PERL?
Currently, I hard-coded and defined it in my code. I wanna know how to make up the %mymap hash thru reading the cfg.txt

====
csv file(cfg.txt):
888,444
999,333
===
#!/usr/bin/perl

my $file='p.csv';
my %mymap;
$mymap{888} = 444;
$mymap{999} = 333;

open(my $data, '<',$file) or die "Cannot open 'file'\n";
while (my $line=<$data>) {
my @column = split ",", $line;
if ($line =~ /Doc/) {
if (exists $mymap{$column[2]}) {
$column[3]=$mymap{$column[2]};}
foreach my $i (0..$#column) {
if ($i > 0) {
print ",",$column[$i];}
else {
print $column[$i];}
}}
else {
print $line}
}
exit;

Hi.

Here is one way:
Producing (with your data on file "data1"):
See perl man pages or perldoc for details ... cheers, drl