Perlスクリプトは、電子メール送信する読み出しファイルの内容

Question

は、読み取りによって

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 

について以下の形式で 2つのアレイからコンテンツを抽出し、ファイル（out.log）にそれを格納するためのPerlスクリプトを書いout.logファイルの内容は、私は、jack@gmail.com

Your balance is:67890 

に電子メール本文の内容

Your balance is:12345 

でjoe@gmail.comに電子メールを送信する必要があります、ジョン@ gmail.com

Your balance is:45678 

から

私は、ログファイルを読み込み、以下のが、上記のシナリオを実現する方法がわからないようなメール本文の内容を形成することができます。

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

今後ともお役に立ちたいと思います。事前におねがいします。

Answer 1

まだテストしていませんが、これで問題は解決します。

use strict; 
use warnings; 

use Mail::Sendmail; 

open my $fh, '<', 'output.log' or die "could not open file output.log !$"; 

while (my $line = <$fh>) { # read the content of the file line by line 
     # match and capture balance and the email address 
     my ($balance, $to_email) = $line =~ /(\d+)\s+(\S+)/; 
     %mail = (To  => $to_email, 
       From => 'your_eamil@address.comacine', 
       Messag => "your balance is: $balance" 
      ); 
     sendmail(%mail); 
} 
close $fh;