0

我正在尝试发送有关哈希值的 html 电子邮件（报告）。但我无法以表格格式打印哈希值。我HTML::Mason用来执行我的 perl 命令（通过哈希循环）并在报告末尾打印它。但是我的 perl 代码没有被执行。

use HTML::Entities;
use Mail::Sendmail;
use MIME::Lite;
use Term::ANSIColor;
use Time::localtime;
use HTML::Mason;

my $ti = localtime;
my ( $day, $month, $year ) = ( $ti->mday, $ti->fullmonth, $ti->year );

# DEFINE A HASH
%coins = ( "Quarter" => 25, "Dime" => 10, "Nickel" => 5 );

$html = <<END_HTML;
   Please direct any questions to <a href="mailto:abc@mydomain.com">MyEmailID</a><br><br>

  <table border='1'>
   <th>Keys</th><th>Values</th>
% while (($key, $value) = each(%coins)){       
   <TR>     
   <TD><% $key %></TD>      
   <TD><% $value %></TD>      
   </TR>       
% }
  </table>;

END_HTML

$msg = MIME::Lite->new(
    from    => 'abc@mydomain.com',
    To      => 'def@mydomain.com',
    Subject => 'Report',
    Type    => 'multipart/related'
);
$msg->attach(
    Type => 'text/html',
    Data => qq{
        <body>
        <html>$html</html>
        </body>
    },
);

MIME::Lite->send( 'smtp', 'xxxs.xxxx.xxxxx.com' );
$msg->send;
4

2 回答 2

2

由于您只想生成一个表格，因此您可以轻松地完成此操作，而无需使用 HTML::Mason：

use HTML::Entities;
use Mail::Sendmail;
use MIME::Lite;
use Term::ANSIColor;
use Time::localtime;

my $ti = localtime;
my ( $day, $month, $year ) = ( $ti->mday, $ti->fullmonth, $ti->year );

# DEFINE A HASH
my %coins = ( "Quarter" => 25, "Dime" => 10, "Nickel" => 5 );

my $html = '<table border="1">
<thead><th>Keys</th><th>Values</th></thead>
<tbody>';

while ( my($key, $value) = each(%coins)) {
    $html .= "<tr><td>$key</td><td>$value</td></tr>";
}
$html .= "</tbody></table>";

my $greeting = 'Please direct any questions to <a href="mailto:abc@mydomain.com">MyEmailID</a><br><br>';
my $outtro = '<br><br>See yas later, alligator!';

$html = $greeting . $html . $outtro;

$msg = MIME::Lite->new(
    from    => 'abc@mydomain.com',
    To      => 'def@mydomain.com',
    Subject => 'Report',
    Type    => 'multipart/related'
);
$msg->attach(
    Type => 'text/html',
    Data => qq{
        <body>
        <html>$html</html>
        </body>
    },
);

MIME::Lite->send( 'smtp', 'xxxs.xxxx.xxxxx.com' );
$msg->send;

除非您的电子邮件需要非常复杂，否则可能不值得为此目的使用 HTML::Mason。如果您打算使用 HTML::Mason 发送电子邮件，则需要设置脚本来调用它 - 请参阅 pod 了解详细信息。不幸的是，你不能只在字符串中嵌入 Mason 命令。

于 2014-09-19T17:28:06.920 回答
0

像这样的东西？

# DEFINE A HASH
my %coins = ( "Quarter" => 25,
              "Dime" => 10,
              "Nickel" => 5, );

for my $no (keys %coins) {
    print qq(
    <table>
        <tr><td> $no </td></tr>
        <tr><td> $coins{$no} </td></tr>
    </table>
    );
}
于 2014-09-19T16:13:33.000 回答