Ես փորձում եմ աղյուսակը ձևավորել այնպես, որ տողերն առանձնացված լինեն տողերով: Նույնիսկ փորձել եմ օգտագործել ներկառուցված ոճեր, բայց ոչինչ չի ստացվել: Այստեղ ինչ-որ բան կարոտո՞ւմ եմ:
Ահա perl կոդը, որը ես օգտագործում եմ էլփոստի HTML-ը ստեղծելու համար.
my $section_html = '';
$section_html.=qq(<table><tr style="border : 1px solid black;"><td>Hello1</td><td>Hello2</td></tr><tr style="border : 1px solid black;"><td>Hello3</td><td>Hello4</td></tr></table>);
my $email_html = <<EOF;
<html><head><style type="text/css">
body, td, th, strong { font-family: Verdana; font-size: 11px; }
table {
border:none;
border-collapse: collapse;
text-align:center;
}
table td {
border-left: 1px solid #000;
border-right: 1px solid #000;
}
table th {
border-left: 1px solid #000;
border-right: 1px solid #000;
}
table td:first-child {
border-left: none;
text-align:left;
}
table td:last-child {
border-right: none;
}
table tr{
border-top : 1px solid #000;
}
table tr{
border-top : 1px solid black;
}
</style></head>
<body bgcolor="#ffffff">
<span style="font-size: 20px">Report Header</span>$section_html</body></html>
EOF
# Write to file
open(FILE, ">/var/weekly_report/"."report"."_"."testing".".html") or die "Unable to open file for writing: $!\n";
print FILE $email_html;
close(FILE);
# Email weekly report
my $msg = MIME::Lite->new(
To => '[email protected]',
Subject => 'Report subject',
Type => 'text/html',
Data => $email_html);
$msg->send();