Shell Programming and Scripting

awk '/0.5 /{if(s){print s;s=$NF+0}else{s=$NF+0}}
    /0.5/{s=s""$NF+0})
	END{print s}' input.txt

#!/usr/bin/perl
use strict;
use warnings;

my @id;
my %data;
my $set = 0;

while(<>) {
    unless (/^\d/) { ++$set; next }
    my ($id, @fields) = (split)[0..5];
    push @id, $id unless $set;
    for my $f (0..$#{fields}) {
        push @{$data{$id}[$f]}, $fields[$f];
    }
}

for my $t (0..4) {
    for my $i (@id) {
        my $p  = shift @{$data{$i}};
        print join (",", $i, @{$p})."\n";
    }
    print "\n";
}

0.5,0,0,0
1.0,0,0,0
1.5,0,0,0
2.0,0,0,0
2.5,0,0,0
3.0,0,0,0
3.5,0,0,0
4.0,0,0,0
4.5,0,0,0
5.0,0,0,0
5.5,3,3,3
6.0,2,1,1
6.5,-1,-1,-2
7.0,0,0,-1
7.5,-1,-2,-1
8.0,0,1,2
8.5,0,1,1
9.0,0,0,1
9.5,0,1,0
10.0,1,1,1
10.5,1,1,2
11.0,2,1,2
11.5,2,2,1
12.0,0,0,0

0.5,0,0,0
1.0,0,0,0
1.5,0,0,0
2.0,0,0,0
2.5,0,0,0
3.0,0,0,0
3.5,0,0,0
4.0,0,0,0
4.5,0,0,0
5.0,0,0,0
5.5,69,69,69
6.0,79,79,79
6.5,75,75,74
7.0,73,73,72
7.5,73,73,71
8.0,72,70,70
8.5,72,72,73
9.0,73,73,74
9.5,72,73,73
10.0,72,72,72
10.5,71,72,71
11.0,73,74,74
11.5,75,75,76
12.0,0,0,0

0.5,0,0,0
1.0,0,0,0
1.5,0,0,0
2.0,0,0,0
2.5,0,0,0
3.0,0,0,0
3.5,0,0,0
4.0,0,0,0
4.5,0,0,0
5.0,0,0,0
5.5,18,18,18
6.0,12,12,12
6.5,11,11,12
7.0,12,11,11
7.5,11,9,11
8.0,7,8,10
8.5,8,9,11
9.0,12,9,11
9.5,10,10,8
10.0,9,10,8
10.5,9,9,8
11.0,14,10,11
11.5,13,11,11
12.0,0,0,0

0.5,128,128,128
1.0,128,128,128
1.5,128,128,128
2.0,128,128,128
2.5,128,128,128
3.0,128,128,128
3.5,128,128,128
4.0,128,128,128
4.5,128,128,128
5.0,128,128,128
5.5,128,128,128
6.0,63,61,51
6.5,28,28,26
7.0,32,31,25
7.5,35,32,28
8.0,37,37,32
8.5,42,42,39
9.0,38,38,38
9.5,38,39,40
10.0,39,42,44
10.5,42,44,47
11.0,43,44,48
11.5,46,49,52
12.0,55,59,65

0.5,128,128,128
1.0,128,128,128
1.5,128,128,128
2.0,128,128,128
2.5,128,128,128
3.0,128,128,128
3.5,128,128,128
4.0,128,128,128
4.5,128,128,128
5.0,128,128,128
5.5,128,128,128
6.0,15,18,15
6.5,24,25,22
7.0,27,28,21
7.5,21,19,12
8.0,21,20,13
8.5,21,23,18
9.0,25,27,22
9.5,24,25,24
10.0,25,25,28
10.5,29,32,36
11.0,27,29,35
11.5,27,30,38
12.0,27,33,47

#!/usr/bin/perl
use strict;
use warnings;

my @id;
my %data;
my $set = 0;

while(<>) {
    unless (/^\d/) { ++$set; next }
    my ($id, @fields) = (split)[0..5];
    push @id, $id unless $set;
    for my $f (0..$#{fields}) {
        push @{$data{$id}[$f]}, $fields[$f];
    }
}

for my $t (0..4) {
    for my $i (@id) {
        my $p  = shift @{$data{$i}};
        my $avg = avg(@{$p});
        printf "%s,%d\n", join (",", $i, @{$p}), $avg;
    }
    print "\n";
}

sub avg {
    my $total = 0;
    foreach (@_) {
        $total += $_;
    }
    return  $total/@_;
}