UNIX for Dummies Questions & Answers

			Remark_Hello_1	Remark_Hello_2	Remark_Hello_3	Remark_Hello_4
Hello_World_FW_0001		X			
Hello_World_FW_0002		X		X		
Hello_World_FW_0003				X		X
Hello_World_FW_0004				X		           X

Hello World ID			Remark ID
Hello_World_FW_0001		Remark_Hello_1		
Hello_World_FW_0002		Remark_Hello_1
					Remark_Hello_2		
Hello_World_FW_0003		Remark_Hello_2
					Remark_Hello_3				
Hello_World_FW_0004		Remark_Hello_2
					Remark_Hello_4

   #!/usr/bin/perl -w

    use strict;
    use Spreadsheet::WriteExcel;

    # Open the comma-separated file
    open (TABFILE,$ARGV[0]) or die "$ARGV[0]: $!";

    # Create a new Excel workbook
    my $workbook  = Spreadsheet::WriteExcel->new($ARGV[1]);
    my $worksheet = $workbook->addworksheet();
	$worksheet->write(0,0,'Hello World ID');
	$worksheet->write(0,1,'Remark ID');
    # Row and column are zero indexed
    my $row = 1;
	my $val=1;
    while (<TABFILE>) {
       /TBD/
    }

awk -F'\t+' 'NR==1      {split ($0, H, "\t"); next}
                        {printf "%s", $1
                         for (i=2;i<=NF;i++) if ($i=="X") print "\t\t"H[i+2]}
        ' file
Hello_World_FW_0001        Remark_Hello_1
Hello_World_FW_0002        Remark_Hello_1
        Remark_Hello_2
Hello_World_FW_0003        Remark_Hello_2
        Remark_Hello_3
Hello_World_FW_0004        Remark_Hello_2
        Remark_Hello_4