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("mail.hotmail.com");
if ($pingStatus eq 1)
{
$smtp = Net::SMTP->new('mail.hotmails.com');
$mime->send() or die "Failed to send mail\n";
$mime->quit;
}
}
|