Title_1,Title_2,Title_3,Title_4,Title_5,Title_6,Title_7,Title_8,Title_
+9,Title_10
Apr13,Gkel_gz.dat.gz,1456,1456,Check_ABC_TT1_INTL.dat,489,Gkel_gz.dat,
+124,422,TRUE
 '    ','    ','    ','    ',Check_AB_TT1.dat,124
May13,Gkel_gz.dat.gz,6541',6541,Check_ABC_TT1.dat,466,Check_AB_TT1_TT2
+.dat,07364,07364,TRUE
'    ','    ','    ','    ',Check_AB_TT1.dat,263
Jun13,Gkel_gz.dat.gz,62382,62382,Check_ABC_TT1.dat,470,Check_AB_TT1_TT
+2.dat,04220,04220,TRUE
'    ','    ','    ','    ',Check_AB_TT1.dat
[download]

print DETAIL "$pattern,$Orig_gz[0],$Orig_gz[1],$Orig_gz[1],$INTL[0]->[
+0],$INTL[0]->[1],$Orig[0],$Orig[1],$Orig[1],TRUE\n";
print DETAIL "'\t','\t','\t','\t',$INTL[1]->[0],$INTL[1]->[1]\n";
return join "\n", map { join ',', @$_ } @report;
my $body = ConvertData();
[download]

How can i put the data in tabular form, any suggestions

In output i am seeing ',', how can i remove that

As i am new to this, any inputs please

The short answer is to stop printing things you don't want to print. It should be fairly obvious where the ',' occurs within the code you've posted.

The long answer is to stop, take a step back and learn the basics. Copying and pasting code people have given you which you don't understand and piecing together a program in this manner isn't wise. If you don't understand what it code you've been given does make some effort to find out how and why it does what it's doing. If you need more help ask specific questions.

• perlintro
• http://learn.perl.org
• http://perldoc.perl.org
• The tutorials section of this site, including PerlMonks for the Absolute Beginner

Hi Marto,

First of all my apologies for the trouble and i
rectified the '.' issue

print  "\n $pattern,$Orig_gz[0],$Orig_gz[1],$Orig_gz[1],$TT1[0]->[0],$
+TT1[0]->[1],$Orig[0],$Orig[1],$Orig[1],TRUE\n";
print  "\t \t \t \t \t $TT1[1]->[0],$TT1[1]->[1] \n";
[download]

The only issue what i am having is HTML table


Where i was not able to use HTML:: modules

Any help on how can i put my data on table


is appreciated

Thanks