perl - Perl スクリプトがメールを送信せず、リンクを解除しない - ing

Question

私が書いていないスクリプトがいくつかあります...それらは Squid ログ データベースを検索し、スプレッドシートを作成して電子メールで送信し、作成した .pid および .xls ファイルを削除します。

スクリプトは、その変数の 1 つ (request_user) に NTLM を使用していました...手動で入力したテキスト フィールドに変更しました。

perl がわからず、スクリプトが機能していません。

.pid と .xls が作成されていますが、何も電子メールで送信されず、ファイルが削除されません (リンク解除)

リクエストおよび生成ファイルへのリンクは次のとおりです。

http://www.the-greenes.net/spreadsheet_request-test.txt

http://www.the-greenes.net/spreadsheet_gen.txt

perl のスキルが非常に限られている人を助けることができる人はいますか?

ありがとう

Answer 1

スクリプトには、spreadsheet_gensmtp サーバーへのアドレスを設定する次の行があります。

my $mail_server=`10.0.1.98`;

バッククォートを使用すると、named コマンドを実行10.0.1.98し、その出力を$mail_server変数に割り当てます。これはおそらく間違っています。バッククォートを通常のアポストロフィに置き換えて、文字列を作成してみてください。

my $mail_server = '10.0.1.98';

にエラーが表示されますerror.logか? $message->send ...失敗すると、エラー メッセージが表示されて終了し、何も送信されず、リンクも解除されません。