Shell Programming and Scripting

1,ID=1000
1,Org=CedarparkHospital
1,cn=john
1,sn=doe
1,uid=User001
2,uid=User002
2,ID=2000
2,cn=steve
2,sn=jobs
2,Org=Providence

1,1000,CedarparkHospital,john,doe,User001
2,2000,Providence,steve,jobs,User002

use strict;
use warnings;

my @KEYS = qw{ recid };
my %KEYS = ( recid => 1 );
my @DATA = ();

$\ = "\n";

while (<>) {
  chomp;
  my ($recid, $key, $value) = m{^(\d+),([^=]+)=(.*)$};

  unless (defined $value) {
    print STDERR $ARGV, ': invalid record - ', $_;
    next;
  }

  # keys are ordered by occurrence

  unless (defined $KEYS{$key}) {
    push @KEYS, $key;
    $KEYS{$key}++;
  }

  # initial each data-record with the record-id

  unless (defined $DATA[$recid]) {
    $DATA[$recid]->{recid} = $recid;
  }

  $DATA[$recid]->{$key} = $value;
}

$, = ',';

print 0, @KEYS;

foreach my $D (@DATA) {
  next unless defined $D;
  print map { defined $D->{$_} ? $D->{$_} : '' } @KEYS;
}

0,recid,ID,Org,cn,sn,uid
1,1000,CedarparkHospital,john,doe,User001
2,2000,Providence,steve,jobs,User002

#!/bin/bash

sort -k 1 col2rodata -o /dev/null
ro=1
lines=
while read line
do
    lines=$(( lines + 1 ))

    case ${line:2:2} in
        ID) ID=${line##*=} ;;
        Or) Org=${line##*=} ;;
        cn) cn=${line##*=} ;;
        sn) sn=${line##*=} ;;
        ui) uid=${line##*=} ;;
    esac

    if [ $(( lines % 5 )) = 0 ]; then
        echo "$ro,$ID,$Org,$cn,$sn,$uid"
        ro=$(( $ro + 1 ))
    fi
done < col2rodata

# output
# ------
# 1,1000,CedarparkHospital,john,doe,User001
# 2,2000,Providence,steve,jobs,User002