Shell Programming and Scripting

#!/usr/bin/perl

open(LK,"MsPMTP.csv") or die "$!\n";
open(DF,"ProfileNames.csv")  or die "$!\n";

while (<DF>) {
next if $. == 1;
chomp;
@flds=split(/,/);
$lookup{substr($flds[1],index($flds[1],"_"))}=$flds[0];
}
close(DF);

while(<LK>){
chomp;
if (exists $lookup{substr($_,index($_,"_"))}) {
print $lookup{substr($_,index($_,"_"))},",",$_,"\n";
} else {
print "No Profile,",$_,"\n";
}
}
close(LK);

#!/usr/bin/perl

open(DF,"ProfileNames.csv")  or die "$!\n";

while ($lin = <DF>) {
$col = +(split ",", $lin)[1];
  open(LK,"MsPMTP.csv") or die "$!\n";

  while($lin2 = <LK>){
   $col1 = +(split ",", $lin2)[0];
   if ($col =	$col1) {
     $ok = "Y";     
   } else {
   $ok = "N";   
   }

   if ($ok = "Y") {
     print $lin,"\n";
   } else {
     print "No Profile,",$lin,"\n";
   }
}
close(LK);


}
close(DF);