Perlでメールを送信する方法

スポンサーリンク
Perlのプログラムからメールを送りたいことがたまにあります。
そこで、PerlからE-mailを送信する方法について、
サンプルコードを紹介します。

やり方

sendmailコマンドを利用します。
sendmailコマンドをopen関数で開き、
そこに、メールの内容を書き込んであげるだけで、簡単にメールを送信する
ことができます。

ソース

$toと$fromのメールアドレスは、適切なものに変更してください。

#!/usr/local/bin/perl

use strict;
use warnings;

my $SENDMAIL;
my $sendmail_cmd = "/usr/sbin/sendmail -t";	# sendmailコマンド

my $from = "yahoo\@yahoo2.co.jp";	# Fromのアドレス
my $to = "google\@yahoo2.co.jp";	# あて先のアドレス
my $cc = "";
my $subject = "Hello, Perl Email";	# 件名
my $message =<<__E_O_F__;		# メール本文
Hi $to,

Thaks,
foo
__E_O_F__

open($SENDMAIL, "|$sendmail_cmd") or die "$sendmail_cmd [$!]";

my $text =<<E_O_M;
From: <$from>
To: $to
Cc: $cc
Subject: $subject

$message
E_O_M

print $SENDMAIL $text;

close($SENDMAIL);

スクリプトのパーミッションの実行フラグ

スクリプトのパーミッションの実行フラグを立てます。

chmod +x mail.pl


実行方法

./mail.pl

参照しているページ (サイト内): [2007-11-13-4]
スポンサーリンク
スポンサーリンク
 
いつもシェア、ありがとうございます！
Twitter
Facebook
LINE
Pocket
はてぶ
RSS

もっと情報を探しませんか？

関連記事

最近の記事

人気のページ

スポンサーリンク
 

過去ログ

2020 : 01 02 03 04 05 06 07 08 09 10 11 12
2019 : 01 02 03 04 05 06 07 08 09 10 11 12
2018 : 01 02 03 04 05 06 07 08 09 10 11 12
2017 : 01 02 03 04 05 06 07 08 09 10 11 12
2016 : 01 02 03 04 05 06 07 08 09 10 11 12
2015 : 01 02 03 04 05 06 07 08 09 10 11 12
2014 : 01 02 03 04 05 06 07 08 09 10 11 12
2013 : 01 02 03 04 05 06 07 08 09 10 11 12
2012 : 01 02 03 04 05 06 07 08 09 10 11 12
2011 : 01 02 03 04 05 06 07 08 09 10 11 12
2010 : 01 02 03 04 05 06 07 08 09 10 11 12
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12
2003 : 01 02 03 04 05 06 07 08 09 10 11 12

サイト

Vim入門

C言語入門

C++入門

JavaScript/Node.js入門

Python入門

FreeBSD入門

Ubuntu入門

セキュリティ入門

パソコン自作入門

ブログ

トップ

プライバシーポリシー