UNIX for Dummies Questions & Answers

# !/bin/sh
toggle=0
field1=""
field2=""
lastfield1=""
lastfield2=""
exec < inputfile
exec > outputfile
while read line ; do
        echo $line > linetemp
        field1=`awk 'BEGIN {FS=","} {print $1}' linetemp`
        field2=`awk 'BEGIN {FS=","} {print $2}' linetemp`

        if [ $field1 != $lastfield1 -o $field2 != $lastfield2 ]
        then
                lastfield1=$field1
                lastfield2=$field2
                toggle=0
        fi

        if [ $toggle -eq 0 ]
        then
                echo $line
                toggle=1
        fi
done
rm linetemp

open(INFILE, "myFile.txt") || die "$!";

my %dataHash;

while ($inputLine = <INFILE>) {
  chomp($inputLine);
  my ($column1, $column2, $column3) = split(/\,/, $inputLine);
  my $key = "$column1,$column2";
  
  if (!exists($dataHash{$key})) {
    $dataHash{$key} = $column3;
  };
};

foreach $outputLine (sort(keys(%dataHash))) {
  print "$outputLine,$dataHash{$outputLine}\n";
};