プログラムが Linux/Unix システムで実行されている場合は、Perl のsendmailツールを使用して電子メールを送信できます。
以下は、電子メールを送信するための簡単なスクリプトの例です。
例
#!/usr/bin/perl # 電子メールを受信します。ここでは私の QQ メールとして設定していますが、自分のメールアドレスに変更する必要があります。 $to = ' [email protected] ' ; #送信者のメール$ from = ' [email protected] ' ; $subject = ' Coder チュートリアル Perl による電子メール送信テスト' ; $message = 'これは Perl を使用して送信された電子メールです。 ' ; open ( MAIL , " |/usr/sbin/sendmail -t " ) ;印刷する郵便"宛先: $to n " ;郵便"差出人: $from n " ;郵便"件名: $subject n n " ;電子メール情報印刷する郵便$メッセージ;閉じる(メール) ; "メールは正常に送信されましたn " ;上記のプログラムを実行すると、出力結果は次のようになります。
メールが正常に送信されました
通常の状況では、上記のメールは QQ メールボックスによって傍受されます。操作方法は https://kf.qq.com/faq/120322fu63YV130805rYRFzu.html をクリックして追加できます。
ホワイトリストに参加すると、通常通りメールを受信できるようになります。
HTML形式のメールを送信する
Content-type: text/htmln を電子メール ヘッダーに追加して、HTML 形式で電子メールを送信できます。例は次のとおりです。
例
#!/usr/bin/perl # 電子メールを受信します。ここでは私の QQ メールとして設定していますが、自分のメールアドレスに変更する必要があります。 $to = ' [email protected] ' ; #送信者のメール$ from = ' [email protected] ' ; $subject = ' Coder チュートリアル Perl の電子メール送信テスト' ; $message = ' <h1>これは Perl を使用して送信された電子メールです<h1><p>こんにちは、Coder チュートリアルの担当者です。アドレスは http://www .codercto.com。 </p> ' ; open ( MAIL , " |/usr/sbin/
sendmail -t " ) ;印刷する郵便"宛先: $to n " ;郵便"差出人: $from n " ;郵便"件名: $ subject n " ;郵便"コンテンツタイプ: text/html n " ; # 電子メール情報印刷する郵便$メッセージ;閉じる(メール) ; "メールは正常に送信されましたn " ;実行が成功したら、以下に示すように電子メールの内容を確認します。
MIME::Lite モジュールの使用
ウィンドウ システムを使用している場合、sendmail ツールはありません。現時点では、perl の MIME:Lite モジュールをメールクライアントとして使用してメールを送信できます。
MIME:Lite モジュールのダウンロード アドレスは、MIME-Lite-3.030.tar.gz です。
ここでは、cpan を使用して、ダウンロードせずに直接インストールします (root 権限が必要です)。
$ cpan -i MIME::Lite…… /usr/bin/make install -- OK
インストールが成功したら、例を示します。
例
#!/usr/bin/perl use MIME::Lite ; # 電子メールを受信します。ここではそれを自分の QQ メールとして設定します。自分のメールアドレスに変更する必要があります。 $to = ' [email protected] ' ; # Cc、複数の Cc はカンマで区切ります# $cc = '[email protected]、[email protected]'; #送信者のメールアドレス$ from = ' [email protected] ' ; $subject = ' Coder チュートリアル Perl による電子メール送信テスト' ; $message = 'これは、MIME::Lite モジュールを使用して Perl を使用して送信された電子メールです。 ' ; $msg = MIME::Lite ->新しい( から=> $from 、 To => $to 、 Cc => $cc 、件名=> $subject 、データ=> $メッセージ ) ; $ msg - >印刷"メールは正常に送信されましたn " ;実行が成功したら、以下に示すように電子メールの内容を確認します。
HTML形式のメールを送信する
Content-type: text/htmln を電子メール ヘッダーに追加して、HTML 形式で電子メールを送信できます。例は次のとおりです。
例
#!/usr/bin/perl use MIME::Lite ; # 電子メールを受信します。ここではそれを自分の QQ メールとして設定します。自分のメールアドレスに変更する必要があります。 $to = ' [email protected] ' ; # Cc、複数の Cc はカンマで区切ります# $cc = '[email protected]、[email protected]'; #送信者のメールアドレス$ from = ' [email protected] ' ; $subject = ' Coder チュートリアル Perl による電子メール送信テスト' ; $message = ' <h1>これは Perl を使用して送信された電子メールです<h1><p>MIME::Lite モジュールを使用します。 </p><p>コーダー チュートリアルのアドレスは http://www.codercto.com です。 </p> ' ; $msg = MIME::Lite ->新しい( から=> $from , To => $to 、 Cc => $cc 、件名=> $subject 、データ=> $メッセージ ) ; #ヘッダー情報を追加します$msg -> attr ( " content-type " => " text/html " ) ; $msg - > send ; "メールは正常に送信されましたn " ;実行が成功したら、以下に示すように電子メールの内容を確認します。
添付ファイル付きのメールを送信する
添付ファイル付きメールの送信例は次のとおりです。
例
#!/usr/bin/perl use MIME::Lite ; # 電子メールを受信します。ここではそれを自分の QQ メールとして設定します。自分のメールアドレスに変更する必要があります。 $to = ' [email protected] ' ; # Cc、複数の Cc はカンマで区切ります# $cc = '[email protected]、[email protected]'; #送信者のメールアドレス$ from = ' [email protected] ' ; $subject = ' Coder チュートリアル Perl による電子メール送信テスト' ; $message = 'これは、MIME::Lite モジュールを使用し、添付ファイルを含む Perl を使用して送信された電子メールです。 ' ; $msg = MIME::Lite ->新しい( から=> $from 、 To => $to 、 Cc => $cc 、件名=> $subject 、タイプ=> 「マルチパート/混合」 # 添付タグ ) ; $msg ->アタッチ( タイプ=> 'テキスト' 、データ=> $メッセージ) ; #添付情報を指定します$msg -> Attach ( Type => 'テキスト' 、パス=> ' ./codercto.txt ' , # 現在のディレクトリ内 ファイル名=> ' codercto.txt ' 、処理=> 「添付ファイル」 ) ; $ msg - >印刷"メールは正常に送信されましたn " ;実行が成功したら、以下に示すように電子メールの内容を確認します。
複数の $msg->attach を使用して、複数の添付ファイルを追加できます。
