UNIX for Dummies Questions & Answers

sort file |
awk 'BEGIN { FS = OFS = "|" }
{ key=$1 OFS $2 OFS $3 OFS $5;
  if (key == prev) { four=four (four ? ";" : "") $4 }
  else { if (four) print prev, four; four = $4 }
  prev = key }
END { if (four) print prev, four }'

#! /opt/third-party/bin/perl

open(FILE, "<", "sample.txt") or die "Unable to open file <$!>\n";

while(<FILE>) {
  chomp;
  my @arr = split(/\|/);
  my $tmp = "$arr[0]#$arr[1]#$arr[2]#$arr[4]";
  if( defined $fileHash{$tmp} ) {
    $fileHash{$tmp} .= ( $arr[3] . "#" );
  }
  else {
    $fileHash{$tmp} = ($arr[3] . "#");
  }
}

close(FILE);

foreach my $k (keys %fileHash) {
  my @arr = split(/#/, $k);
  print "$arr[0]|$arr[1]|$arr[2]|";
  my $val = $fileHash{$k};
  $val =~ s/#/\;/g;
  $val =~ s/\;$//;
  print "$val|$arr[3]\n";
}

exit(0);

awk 'END { for (k in x) 
print k, x[k], y[k] }
{ x[$1FS$2FS$3] = x[$1FS$2FS$3] ? x[$1FS$2FS$3] ";" $4 : $4
y[$1FS$2FS$3] = $5 } ' FS=\| OFS=\| Test_File.dat

awk 'END { for (i=1; i<=NR; i++)
if (w[i]) 
  print  w[i], x[w[i]], y[w[i]] } 
!z[$1FS$2FS$3]++ { w[NR] = $1FS$2FS$3 }
{ x[$1FS$2FS$3] = x[$1FS$2FS$3] ? x[$1FS$2FS$3] ";" $4 : $4
y[$1FS$2FS$3] = $5 }' FS=\| OFS=\| Test_File.dat