Perlがパスファイルに書き込み、次にunixのメールを使って送信

Question

私はファイルに書き込むPerlスクリプトを書こうとしていて、linuxのmailコマンドを使ってPerlスクリプトが書いたものをファイルに送ります。 私のコードは次のとおりです：

my $pathfile='some_pathfile'; 
open(W_VAR,">>$pathfile"); 
print W_VAR 'hello'; 
close W_VAR; 

my $email_command='mail -s'." header".' some_email_address'.' <'." $pathfile"; 
system($email_command); 

問題がpathfileの内容が送信されれることは決してありませんということです。 私が個人的にそのファイルに記入しても問題ありませんが、perlが書いたものは単に送信されません。チェックするとコンテンツがファイルにあります。

何が問題ですか？

Answer 1

私は問題はあなたのプログラムが改行"\n"文字で行を終了していないということである疑いがあります。手動でファイルを編集したときにファイルに入れられるのは間違いありませんか？

何かこれを修正するかもしれませんが、手にするためのLinuxボックスがありませんので、私はそれをテストできません。

use strict; 
use warnings; 

my $pathfile = 'path/to/file'; 
open my $w_var, '>>', $pathfile or die $!; 
print $w_var "Hello\nWorld!\n"; 
close $w_var; 

my $email_command = "mail -s header some\@emailaddress.com < $pathfile"; 
system $email_command; 

---

編集

しかし、Mail::Sendmailようなものを使用してはるかに良くなります。 Email::Senderははるかに優れていますが、その依存関係とともに、それは非常に単純なタスクのための巨大なモジュールであり、私はここでそれを推薦することを躊躇します。

次のようになりMail::Sendmailを使用するコード：

use strict; 
use warnings; 

use Mail::Sendmail; 

my $pathfile = 'path/to/file'; 

open my $w_var, '>>', $pathfile or die $!; 
print $w_var "Hello\n", "World!\n"; 

my $message = do { 
    open $w_var, '<', $pathfile or die $!; 
    local $/; 
    <$w_var>; 
}; 

sendmail(
    To => 'some@emailaddress.com', 
    From => 'my.address@email.com', 
    Message => $message, 
) 
or die $Mail::Sendmail::error; 

Answer 2

私の賭けはあなたのコマンドがうまく形成されていないということです。

試してみてください。

my $header = "My Subject"; 
my $some_email_address = "myaccount@myemail.com"; 
my $email_command="mail -s \"$header\" $some_email_address < $pathfile";