perl -F\\t -lane 'BEGIN{$a=shift; $s=shift} END{use MIME::Lite; use HTML::Entities qw(encode_entities); eval {local $\; $m = MIME::Lite ->new(To => $a, Subject => $s, Type => q(multipart/related)); $m->attach(Encoding =>q(base64), Type => q(text/html), Data => qq(<head><style>td {border:1px inset black;}</style></head><body><table style="border:1px outset black; border-collapse:collapse;">$t</table></body>)); print $m->send()}} $t.=qq(<tr>\t@{[map {s{(.*)}{<td>$1</td>};$_} map {encode_entities($_)} @F]}\t</tr>\n)' $*
没有评论:
发表评论