in reply to Re^2: How to read data from csv file and place the data on HTML format
in thread How to read data from csv file and place the data on HTML format

Hi Monks, 
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

Replies are listed 'Best First'.
Re^4: How to read data from csv file and place the data on HTML format
by marto (Cardinal) on Jun 27, 2013 at 09:19 UTC

    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.

[reply]
      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

[reply]
[d/l]

        "Where i was not able to use HTML:: modules"

        Which modules, why are you not able to use them? Making people guess what problems you're having is a waste of your time and ours. Please be specific, read and understand How do I post a question effectively?.

        "Any help on how can i put my data on table"

        Does this relate to your many previous posts about emailing this data as the email body? Regardless, since you can print the data, you know you could simply print the HTML required to display this in a table. Alternativly you could use a templating module such as HTML::Template or Template::Toolkit to keep your HTML and your data separate.

[reply]

In Section Seekers of Perl Wisdom