Hi Monks,

I am reading records from the file and assigning the each record to array using the below code and trying to print each field in table

data{
my @values;
my $table;
my $Filename;

open (F, "$Filename") || die ("Could not open $Filename!");
while (my $line = <F>)
{
chomp($line);
push (@values,split(',', $line));}
close (F);

$table .= "<table border=1>";    
for (my $i=1;$i<4;$i++) {
$table .= "<tr>";
for (my $j=1;$j<7;$j++) {
$table .= "<td>$values[$j]</td>";}
$table .= "</tr>";}
$table .= "</table>";}
}

my $table = Data();
Email( $table);

sub Email {

    my ( $table) = @_;

    my $lEmailAddress = 'hem_k24@gmail.com';

    my $env = "- $ENV_NAME";

    my $msg = MIME::Lite->new(
        From    => $lEmailAddress,
        To      => $lEmailAddress,
        Cc      => $lEmailAddress,
        Subject => "Test",
        Type    => 'multipart/mixed',
    );

    $msg->attach(
        Type => 'TEXT/HTML',
        Data => $table,
    );
    $msg->send;
}   

<p>This is my input</p>

<code>
ABC_TEK,12,DFE_YJK,24,JKL_GHY,26,LKJ_UYH,29,GHK_YTH,23,GHS_JSF,34,
FHK_THE,25,SHJ_TRE,26,HSJ_TEH,39,AHJ_EGH,56,SGH_HEJ,42,HGE_THE,46,
HEJ_EJJ,67,JLE_EJK,89,EHJ_EJK,78,EHJ_IKL,68,EHJ_EJK,57,EJH_EKL,69,

[download]

gives me this output message / faulty output: in table 

ABC_TEK 12 DFE_YJK 24 JKL_GHY 26 LKJ_UYH 29 GHK_YTH 23 GHS_JSF 34 FHK_
+THE 25 SHJ_TRE 26 HSJ_TEH 39 AHJ_EGH 56 SGH_HEJ 42 HGE_THE 46 HEJ_EJJ
+ 67 JLE_EJK 89 EHJ_EJK 78 EHJ_IKL 68 EHJ_EJK 57 EJH_EKL 69

[download]

I'm trying to print the fields in table

In reply to Re^2: How to store multiples lines/records in a array by Perlseeker_1
in thread How to store multiples lines/records in a array by Perlseeker_1

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.