1

我在发送邮件的 perl 文件中有以下 HTML 代码。邮件部分和 html 部分很好，但是当我尝试在 DATA as 中添加 perl 代码$BStatus并$AStatus显示它时！上述两个变量的值已经存在，我确认了。

如何显示其值？

$tme=localtime();
$subject='Android Results';
use MIME::Lite;
my $msg = MIME::Lite->new (
  Subject => $subject,
  From    => 'xyz@gmail.com',
  To      => 'xyz@gmail.com',
  Type    => 'text/html',
  Data    => '<H1>Summary</H1><br> <table border="1"> <tr bgcolor="#87CEFA"> <th>Platforms</th> <th>BStatus</th> <th>AStatus</th> <th>Results</th> </tr>  <tr> <th bgcolor="#87CEFA">123</th> <td>$kstatus</td> <td>$astatus</td> <td> <a href="http://xx.xxx.xx.xx/Android/123.html">123-Results</a> </tr>  <tr> <th bgcolor="#87CEFA">atgs</th> <td>row 2, cell 2</td> <td>row 2, cell 3</td> </tr>  <tr> <th bgcolor="#87CEFA">8765</th> <td>row 2, cell 2</td> <td>row 2, cell 3</td> </tr>  <tr></table>'
);
$msg->send();
4

1 回答 1

1

Perl 不会在单引号字符串中插入变量。

利用：

  • 双引号字符串
  • 双引号字符串的替代语法之一，例如qq[...]
  • 合适的模板系统
于 2013-08-12T06:58:14.960 回答