Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re^4: html format email

by GordonLim (Acolyte)
on Apr 09, 2013 at 02:26 UTC ( #1027625=note: print w/replies, xml ) Need Help??

in reply to Re^3: html format email
in thread html format email

Hi, Finally I done my table, thank you very much to golux. Below are the script working for me :)
my $data = qq{ Hi All,<br> Currently below are the chassis which is currently being assigned <TABLE cellSpacing=\"0\" cellPadding=\"0\" border=\"1\" align=\"c +enter\"> <TR align=\"center\"><TD>No</TD><TD>version</TD><TD>Chassis</TD><T +D>Assigned</TD><TD>CMMIP1</TD><TD>CMMIP2</TD><TD>CMM1<br>SerialPortCo +nnection</TD><TD>CMM2<br>SerialPortConnection</TD><TD>Ibootbar_Altuse +n</TD></TR> }; # Open db for reading -- but die if there's an error open(INFO, "data.txt")or die "Failed to open 'data.txt' ($!)\n"; # + Open db for reading @array = <INFO>; close (INFO); @ascend=sort(@array); foreach my $line (@ascend){ my($version,$Chassis,$Assigned,$CMMIP1,$CMMIP2,$CMM1SerialPortConn +ection,$CMM1SerialPortConnectionPort,$CMM2SerialPortConnection,$CMM2S +erialPortConnectionPort,$Ibootbar_Altusen) = split(/\|/,$line); $data .= qq{ <TR><TD align=\"center\"> $i </TD><TD> $version </TD><TD> $Chassis </TD><TD> $Assigned </TD><TD> $CMMIP1 </TD><TD> $CMMIP2 </TD><TD> $CMM1SerialPortConnection <h>Port-</h> $CMM1SerialPortConnectionPort </TD><TD> $CMM2SerialPortConnection <h>Port-</h> $CMM2SerialPortConnectionPort </TD><TD> $Ibootbar_Altusen </TD></TR> }; ++$i; } print "DATA:\n $data\n"; my $mime = MIME::Lite->new( 'From' => $sender, 'To' => $email, 'Subject' => $subject, 'Type' => 'text/html', 'Data' => $data, ); $pingStatus = &checkTargetPing(""); if ($pingStatus eq 1) { $smtp = Net::SMTP->new(''); $mime->send() or die "Failed to send mail\n"; $mime->quit; } }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1027625]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (6)
As of 2017-11-19 05:58 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (278 votes). Check out past polls.