用脚本发送带有SMS的文本消息

来源：作者：出处：巧巧读书 2006-03-19 进入讨论组

讨论组：http://group.qqread.com

短消息服务（Short message service，SMS）允许用户向移动设备发送和接收文本消息。如果使用Perl的话，你可以用SMS来提示有趣的东西或者重要的实时事件，无论它发生在世界的什么地方。

如果要把诸如“工作站备份完毕”或者“阿波罗服务器磁盘空间即将耗尽”这样的简单消息发送给任何带有电子邮件地址的文本消息设备，例如移动电话或者文字传呼机，就要使用下面的脚本：

useNet::SMTP;

$SMTPSERVER = '';          # set to your SMTP mail server

die qq!Usage: $0 FROM TO "SUBJECT" "CONTENT"\n! if (scalar(@ARGV) != 4);

SendMail(@ARGV);

sub SendMail
{
     my ($from, $to, $subject, $content) = @_;

     my $smtp = Net::SMTP->new($SMTPSERVER);
     if ($smtp == undef)
     {
          print("* Message not sent: Can't connect to mail host '$SMTPSERVER'!\n");
     }
     else
     {
          $smtp->mail($from);
          $smtp->to($to);
          my $result = $smtp->data("From: $from\nTo: $to\nSubject: $subject\n\n$content\n\n");
          $smtp->quit();

          print "* Message not sent: data command failed on remote host $SMTPSERVER\n" if (! $result);
     }
}