如何更改我的电子邮件格式perl电子邮件

Question

#!/usr/bin/perl

$SUBJ="Your unique confirmation link";
$MSG="message.txt";
$USERS="list.txt";

open(IN,$USERS);

$id=12345;
while(chop($line=<IN>)){
    open(SM,"|/usr/sbin/sendmail $line");
    print(SM "To: $line\n");
    print(SM "Subject: $SUBJ\n");
    print(SM "Message-ID: <".time().".$id.qmail\@mycompany.com>\n");
    print(SM "From: \"mycompany\" <noreply@message.mycompany.com>\n");
    print("Message sent to $line\n");
    print(SM "Content-Type: text/html\n"); 
    open(FILE,$MSG);
    while($line=<FILE>){
    print(SM $line);
    }
    close(FILE);
    close(SM);
    $id++;
}

close(IN);

我有这个perl emailer脚本。 该脚本将向message.txt中的电子邮件发送到list.txt中的所有电子邮件。 在message.txt中，这是一个html代码。 这个脚本可以正常工作bt我的问题是我想发送这样的消息：您好，您唯一的链接是： http ://www.mycompany.com/mylink.php? id=34 。 我想要一个随机链接。平均而言，每封发送的电子邮件中都有另一个mylink.php？id = randmom。 我怎样才能做到这一点？ 提前致谢。

Answer 1

听起来您正在尝试解决两个问题：

• 如何为发送的每个电子邮件生成唯一的ID
• 如何在每封电子邮件中嵌入唯一链接（当前是从固定文本文件生成的）

首先，它实际上取决于ID的用途。 一种可能性是只拥有一个永久计数器，该计数器存储在数据库或文件中，对于每个发出的电子邮件，该计数器都会递增。 另一种可能性是生成UUID-为此，您可以使用CPAN上许多UUID模块之一。 无论哪种方式，如果ID对您的PHP脚本都有意义，那么您可能希望将其存储在某个地方。

第二点，有许多可能的解决方案。 最简单的是停止使用单独的文件作为电子邮件模板，并将模板内联到脚本中，如下所示：

print(<<_EOT_);
<html>
  <body>
    <p>Hello, here is your <a href="http://www.mycompany.com/mylink.php?id=${UniqueID}">Link</a>
   ... etc ...
  </body>
</html>
_EOT_

上面的示例使用“ here doc”允许您将电子邮件文本直接嵌入脚本中。 直到_EOT_所有内容都是所打印字符串的一部分。 确保_EOT_本身_EOT_上并且没有尾随空格！

一个更可维护的解决方案是使用出色的Template :: Toolkit ，使您可以继续使用单独的模板文件。