Sending email with Perl

一個簡單在 Perl script 裏面用 file handle 的方法來寄 email

把 output redirect 到 shell 的 mail 程式

#!/usr/bin/perl                                                                 
use strict;                                                                     
use 5.012;                                                                      
                                                                                
open MAIL, "|-", "mail -s \"test mail \" " . 'xatierlike@gmail.com';            
say MAIL "Hello, world!";                                                       
close MAIL;

效果：

Perl 的 TIMTOWTDI  rule 告訴我們，還有其他方法可以做到XD

CPAN 上面主要有兩大 module 可以幫忙我們完成這件事

MIME::Lite   # 支援附加檔案

Net::SMTP

最後，請不要拿來寄 spam !!!