UNIX for Dummies Questions & Answers

001078401      A      5A1
001078401     B       085
001030035   A      5A1
001030035   B       085

001078401      C      001
001078401      D   065
001030035   C      001
001030035   D   065

001078401    A       5A1   B     085   C     001  D     065
001030035  A       5A1   B     085   C     001  D     065

awk '
! a[$1] {a[$1]=$1}
{ for (i=2; i<=NF; i++) a[$1]=a[$1] OFS $i; }
END {for (i in a) print a[i]}
' File1 File2

001078401*A*001
001078401*B*065
00107840*A*001
001078401*C*001
00107840*D*065
001078401*E*1200
001030035*A*001
001030035*B*065
001030035*C*001
001030035*D*065
001030031*E*200
001030035*E*1200
001030032*D*06
001030031*E*1200

001078401*A*001*B*065*C*001*E*1200
00107840*A*001*D*065
001030035*A*001*B*065*C*001*D*065*E*1200
001030031*E*200*E*1200
001030032*D*06

#!/usr/bin/perl -w
use strict;

my $cur_dir = $ENV{PWD};
my $filename = $cur_dir."/file";
my ($record,$field,@fields,%hash);

open(FILE,"<$filename") or die"open: $!";

while( defined( $record = <FILE> ) ) {
  chomp $record;
  @fields=split(/\*/,$record);
  $hash{$fields[0]}.="\*$fields[1]\*$fields[2]";
}

foreach (sort keys %hash) {
  print "$_$hash{$_}\n";
}

close(FILE);

001030031*E*200*E*1200
001030032*D*06
001030035*A*001*B*065*C*001*D*065*E*1200
00107840*A*001*D*065
001078401*A*001*B*065*C*001*E*1200

awk 'BEGIN{FS = "[*]";OFS = "*"}
! a[$1] {a[$1]=$1}
{ for (i=2; i<=NF; i++) a[$1]=a[$1] OFS $i; }
END {for (i in a) print a[i]}
' File1

        BEGIN {FS = "*"}
        a[$1]= a[$1]"*" $2 "*" $3
        END{for(i in a)
                print i a[i] > "satya_new.txt"
           }

awk -f satya.awk File1

        BEGIN {FS = "[*]"}
           {a[$1]= a[$1]"*" $2 "*" $3}
        END{for(i in a)
                print i a[i] > "satya_new.txt"
           }