Fatal编程技术网
  • perl/
  • 发送电子邮件读取文件内容的Perl脚本

发送电子邮件读取文件内容的Perl脚本

perl

发送电子邮件读取文件内容的Perl脚本,perl,Perl,编写了一个Perl脚本，从2个数组中提取内容，并以以下格式将其存储到文件（out.log） open my $fh, ">", "out.log" or die "Cannot open out.log: $!"; for my $i (0..$#arr_1){ print $fh "$arr_1[$i]\t$arr_2[$i]\@gmail.com\n"; } close $fh; 12345 joe@gmail.com 67890 jack@gmail.com 45678

编写了一个Perl脚本，从2个数组中提取内容，并以以下格式将其存储到文件（out.log）

open my $fh, ">", "out.log" or die "Cannot open out.log: $!";
for my $i (0..$#arr_1){
    print $fh "$arr_1[$i]\t$arr_2[$i]\@gmail.com\n"; }
close $fh; 


12345 joe@gmail.com
67890 jack@gmail.com
45678 john@gmail.com
现在，通过读取out.log文件内容，我必须向joe@gmail.com使用电子邮件正文内容

Your balance is:12345
对,，jack@gmail.com

Your balance is:67890

Your balance is:45678
对,，john@gmail.com

Your balance is:67890

Your balance is:45678
我可以阅读日志文件并形成邮件正文内容，如下所示，但不确定如何实现上述场景

my $mail_body = "Your balance is:\n";
{
  local $/ = undef;
  open FILE, "file" or die "...: !$";
  $mail_body .= <FILE>;
  close FILE;
}

my$mail\u body=“您的余额为：\n”；
{
本地$/=undef；
打开文件，“文件”或死亡“…:！$”；
$mail_body.=；
关闭文件；
}
期待帮助。提前感谢。

尚未测试，但这将解决您的问题。 
使用严格；
使用警告；
使用Mail：：Sendmail；

打开我的$fh，'你的问题是什么？如何从输入文件中读取一个文件，或者如何发送电子邮件？我的要求是通过读取out.log文件发送电子邮件。帐户余额和电子邮件收件人可在日志文件
12345中找到joe@gmail.com67890jack@gmail.com45678john@gmail.com
我必须向个人电子邮件ID发送电子邮件，电子邮件正文内容如下：收件人，
joe@gmail.com您的余额是：12345到，
jack@gmail.com您的余额为：67890，
john@gmail.com您的余额是：45678
@Vigs您还没有真正回答choroba的问题。你能告诉我们——（1）你知道如何根据需要读取文件吗？（2） 你知道如何发送电子邮件吗？通过一些定制，它工作得很好。谢谢