Shell Programming and Scripting

 Subject  Condition      Fp1        Fp2       FpZ
  S1          mixedneg    235.012   125.65   548.233
  S1          mixedneut   212.1     548.215    1548.2 
  S1          pureneg     1578.22   15.25      1654.2 
  S1          pureneut    4878.2     512.448    545.88 
  S2          mixedneg    5465       87465     46984

  S2          mixedneut    545       7498         5136

  S2          pureneg        587        8798        6516

  S2          pureneut      874       8730.39     879

Subject  Fp1mixedneg  Fp1mixedneut   Fp1pureneg   Fp1pureneut  Fp2mi    
  S1         235.012              125.655        548.233
  S2         212.1                  548.215        1548.2      AND so on....
  S3         1578.22               15.25          1654.2 
  S4         4878.2                 512.448        545.88 
  S5         
  S6         
  S7        
  S8

#!/usr/bin/perl

use strict;
use warnings;

my $line = <STDIN>;
chomp($line);
my @header_item = split(/ /, $line);
die("Invalid header line.\n") if (@header_item < 2);

my %new_header_item = ();
my %data = ();

while ($line = <STDIN>)
{
    chomp($line);
    my @item = split(/ /, $line);
    next if (@item < 2);
    $data{$item[0]} = () if (!defined($data{$item[0]}));

    for (my $i = 2; $i < @item; $i++)
    {
        last if (!defined($header_item[$i]));
        my $name = $header_item[$i].$item[1];
        $new_header_item{$name} = '';
        $data{$item[0]}{$name} = $item[$i];
    }
}

my @h = sort keys(%new_header_item);
print $header_item[0].' '.join(' ', @h)."\n";

foreach my $subj (keys(%data))
{
    print $subj;

    foreach my $key (@h)
    {
        my $value = defined($data{$subj}{$key}) ? $data{$subj}{$key} : 0;
        print " $value";
    }

    print "\n";
}

exit(0)

./script.pl < data_file

Subject Fp1mixedneg Fp1mixedneut Fp1pureneg Fp1pureneut Fp2mixedneg Fp2mixedneut Fp2pureneg Fp2pureneut FpZmixedneg FpZmixedneut FpZpureneg FpZpureneut
S1 235.012 212.1 1578.22 4878.2 125.65 548.215 15.25 512.448 548.233 1548.2 1654.2 545.88
S2 5465 545 587 874 87465 7498 8798 8730.39 46984 5136 6516 879

./script.pl < data_file > output_file

subjects AF3_Li..nce AF4_Li..nce AF7_Li..nce AF8_Li..nce C1_Lin..nce C2_Lin..nce C3_Lin..nce C4_Lin..nce C5_Lin..nce C6_Lin..nce CP1_Li..nce CP2_Li..nce CP3_Li..nce CP4_Li..nce CP5_Li..nce CP6_Li..nce CPz_Li..nce Cz_Lin..nce F1_Lin..nce F2_Lin..nce F3_Lin..nce F4_Lin..nce F5_Lin..nce F6_Lin..nce F7_Lin..nce F8_Lin..nce FC1_Li..nce FC2_Li..nce FC3_Li..nce FC4_Li..nce FC5_Li..nce FC6_Li..nce FCz_Li..nce FT7_Li..nce FT8_Li..nce Fp1_Li..nce Fp2_Li..nce Fpz_Li..nce Fz_Lin..nce HEOG_L..nce M1_Lin..nce M2_Lin..nce O1_Lin..nce O2_Lin..nce Oz_Lin..nce P1_Lin..nce P2_Lin..nce P3_Lin..nce P4_Lin..nce P5_Lin..nce P6_Lin..nce P7_Lin..nce P8_Lin..nce PO3_Li..nce PO4_Li..nce PO5_Li..nce PO6_Li..nce PO7_Li..nce PO8_Li..nce POz_Li..nce Pz_Lin..nce T7_Lin..nce T8_Lin..nce TP7_Li..nce TP8_Li..nce VEOG_L..nce
   4.0749   7.7563          2.1861      S1 11.2153   PurNegForg   12.0973     12.2897       1.0983         6.4911   3.7960   10.4519  11.9439     2.0849