Shell Programming and Scripting

d1_03  fr:23
d1_03 fr:56
d1_03 fr:67
d1_03 fr:78
d1_01 fr:35
d1_01 fr:29
d1_01 fr:45
d2_09 fr:34
d2_09 fr:78
d3_98 fr:90
d3_98 fr:104
d3_98 fr:360

d1_03 fr:23 fr:56 fr:67  fr:78
d1_01 fr:35 fr:29 fr:45
d2_09 fr:34 fr:78 
d3_98 fr:90 fr:104 fr:360

[mute@geek ~/test]$ awk '{ a[$1] = (a[$1] ? (a[$1] FS) : "") $2 } END { for (i in a) print i " " a[i] }' bif

$ cat script.pl
use strict;
use warnings;

my ($old_d, %h);

while ( <> ) {
        chomp;
        my ($d, $fr) = split;
        if ( $. > 1 && !exists $h{ $d } ) {
                print qq($old_d ), join( " ", @{$h{ $old_d }} ), qq(\n);
                undef %h;
                undef $old_d;
        }
        push @{$h{ $d }}, $fr;
        $old_d ||= $d;

        print qq($old_d ), join( " ", @{$h{ $old_d }} ), qq(\n) if eof;

}
$ perl script.pl infile
d1_03 fr:23 fr:56 fr:67 fr:78
d1_01 fr:35 fr:29 fr:45
d2_09 fr:34 fr:78
d3_98 fr:90 fr:104 fr:360

awk 'NR==FNR{a[$1]=$2" "a[$1];next} END{for(b in a)print b,a[b]} inputfile inputfile