SED or AWK help

Shell Programming and Scripting
1

I have a file like this. It will transpose the all the lines from col number 7 to Col no 10 to one file all rows having same value at col number 6.

In the below example first 4 rows having same value at col-6 that is A1.

Can any oneone help me out here?

A B C D 2006 A1 fgf hbdf jff ff
A B c D 2007 A1 fg1 kgjg1 lhkh1 lh1
A B C D 2008 A1 fgf2 hbdf2 jff2 ff2
A B c D 2009 A1 fg3 kgjg3 lhkh3 lh3
A B C D 2006 A2 fgf1 hbdf1 jff2 ff3
A B c D 2007 A2 fg3 kgjg lhkh lh
A B C D 2008 A2 fgf4 hbdf5 jff6 ff3
A B c D 2009 A2 fg12 kgjg23 lhkh2 lh22

The desired output

A B C D 2006 A1 fgf hbdf jff ff fg1 kgjg1 lhkh1 lh1 fgf2 hbdf2 jff2 ff2 fg3 kgjg3 lhkh3 lh3
A B C D 2006 A2 fgf1 hbdf1 jff2 ff3 fg3 kgjg lhkh lh fgf4 hbdf5 jff6 ff3 fg12 kgjg23 lhkh2 lh22

2

Awk nor Sed but Bash :

while read LINE
do
    NEWKEY=$(echo $LINE | cut -d' ' -f6)
    [ "$OLDKEY" != "$NEWKEY" ] && echo && echo -n "$(echo $LINE | cut -d' ' -f-6)"
    OLDKEY="$NEWKEY"
    echo -n " $(echo $LINE | cut -d' ' -f7-)"
done < inputfile

Put your data in inputfile

3 
nawk '
        ( ! ln[$6] ){ ln[$6] = $1" "$2" "$3" "$4" "$5" "$6 }
        { ln[$6] = ln[$6]" "$7" "$8" "$9" "$10  }
        END{ for ( x in ln ) print ln[x] }
' infile

---------- Post updated at 08:10 PM ---------- Previous update was at 07:15 PM ----------

nawk '
        { ! ln[$6] ? ln[$6] = $0 : ln[$6] = ln[$6]" "$7" "$8" "$9" "$10  }
        END{ for ( x in ln ) print ln[x] }
' infilea

OUTPUT: -

A B C D 2006 A1 fgf hbdf jff ff fg1 kgjg1 lhkh1 lh1 fgf2 hbdf2 jff2 ff2 fg3 kgjg3 lhkh3 lh3
A B C D 2006 A2 fgf1 hbdf1 jff2 ff3 fg3 kgjg lhkh lh fgf4 hbdf5 jff6 ff3 fg12 kgjg23 lhkh2 lh22
4

If the number of fields is not fixed:

awk 'END { for (k in r) print r[k] }
{ for (i=7; i<=NF; i++) s = s ? s FS $i : $i
  r[$6] = r[$6] ? r[$6] FS s : $0; s = 0 
  }' infile
5

perl:

while(<DATA>){
	my @tmp = split;
	$hash{$tmp[5]}->{prefix}="@tmp[0..4]" unless $hash{$tmp[5]}->{prefix};
	$hash{$tmp[5]}->{suffix}.=" "."@tmp[6..$#tmp]";
}
foreach my $key(keys %hash){
	print $hash{$key}->{prefix}," ",$hash{$key}->{suffix},"\n";
}
__DATA__
A B C D 2006 A1 fgf hbdf jff ff
A B c D 2007 A1 fg1 kgjg1 lhkh1 lh1
A B C D 2008 A1 fgf2 hbdf2 jff2 ff2
A B c D 2009 A1 fg3 kgjg3 lhkh3 lh3
A B C D 2006 A2 fgf1 hbdf1 jff2 ff3
A B c D 2007 A2 fg3 kgjg lhkh lh
A B C D 2008 A2 fgf4 hbdf5 jff6 ff3
A B c D 2009 A2 fg12 kgjg23 lhkh2 lh22