频道直达 - 专题 - 新闻 - 技巧 - 组网 - 开发 - 安全 - web编程 - 图像 - 操作系统 - 数据库 - 教育 - 旅游 - 健康 - 时尚 - 驱动 - 软件 - 游戏 - 多媒体 - ERP - 讨论组

用脚本发送带有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);
     }
}

更多文章 更多内容请看脚本攻击和防范专题,或进入讨论组讨论。
更多专题 【深 度 阅 读】 相 关 文 章
收藏此文】【 】【打印】【关闭
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
巧巧读书宗旨
相关专题
讨论组问题推荐
站内各频道最新更新文档
站内最新制作专题
热门关键字导读
Photoshop教 程照片处理 照片制作 PS快捷键 抠图
计 算 机 故 障XP系统修复
艺 术 与 设 计设计 流媒体 设计欣赏 边框
计 算 机 安 全ARP
站内频道文章精选
巧巧电脑频道编辑信箱  告诉我们您想看的专题或文章