Shell Programming and Scripting

open MYFILE, "<", "$ARGV[0]" or die "Can't open $ARGV[0] file \n";

################## to retieve the info and put them in associative arrray
$line = <MYFILE>;
@line1 = split(/,/ , $line);
$length = @line1;
$count = 0;
while($count < $length)
{
    $line1[$count] =~ s/^\"//; 
    $line1[$count] =~ s/\"$//;
    $count++;
}


$line = <MYFILE>;
@line2 = split(/,/ , $line);
$length = @line2;
$count = 0;
while($count < $length)
{
    $line2[$count] =~ s/^\"//; 
    $line2[$count] =~ s/\"$//;
    $count++;
}

$count = 0;
while($count < $length)
{
    $array{$line1[$count]}=$line2[$count];      #an associative array to store first 2 line info
    $count++;

awk -F, '{gsub(/\"/,x);for(i=1;i<=NF;i++){a[i];};getline;gsub(/\"/,x);for(i=1;i<=NF;i++){a[i]=$i}}' file

awk -F, '{gsub(/\"/,x);for(i=1;i<=NF;i++){a[i]=$i;};getline;gsub(/\"/,x);for(i=1;i<=NF;i++){array[a[i]]=$i}}' file

"abc","def","hij"
"123","456","789"

$array{"abc"} = 123, $array{"def"} = 456