v-lhb-mgr01:/root/mon# cat m5.pl use Net::SMTP;# mail_user should be your_mail@163.comsub send_mail{ my...
转载
2015-05-08 09:42:00
46阅读
2评论
1, 在不需要认证的smtp服务器上发送邮件
#!/usr/bin/perl -w
use Net::SMTP;
$smtp = Net::SMTP->new($mail_server); #邮件服务器地址
$smtp->mail($send_user); &nbs
转载
精选
2013-05-06 18:54:30
703阅读
1、安装sendmail yum install sendmail yum install sharutils #uuencode 2、配置sendmail.cf #sendmail.cf文件必须放在/etc/目录,而非/etc/mail cp /etc/mail/sendmail.cf /etc/sendmail.cf 3、重启sendmail服务 service sendmail
原创
2013-07-15 13:32:46
726阅读
点赞
使用perl的Mail::SendEasy模块来发送邮件,首先需要确定已安装Mail::SendEasy模块
#! /usr/bin/perl -w use strict; print "mail to start............/n"; use Mail::SendEasy;
原创
2012-02-03 15:39:05
797阅读
1. File::Find 模块
use File::Find 使用该模块,这时一个find的新函数就可以使用了
find subref, dirlis find的第二个参数是要搜索的目录。第一个参数是子例程引用。
$File::Find::name
原创
2012-06-21 23:36:13
716阅读
点赞
1.查看模块帮助信息perldoc CGI
如果按装了CGI,则会显示相关信息,否则提升错误
转载
2011-05-07 21:32:00
73阅读
2评论
Great Perl Modules:http://www.perlfoundation.org/perl5/index.cgi?
转载
2011-05-02 17:47:00
333阅读
如果对于一个绝大部分内容是静态的网站,只有极少数的地方需要动态显示,碰巧你又了解一点perl知识,那么nginx + perl的结合就能很好解决问题。要想nginx支持perl脚本,在编译nginx时候需要如下参数:./configure --with-http_perl_module如果make时候出现如下类似错误: Can’t locate ExtUtils/Embed.pm in @INC
$dirname = "C:\\a1";opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";while( ($filename =...
转载
2015-11-14 19:38:00
51阅读
2评论
Mail::SendEasy这个模块在cpan邮件发送系列关注度比较高,用来发送邮件相当easy
它支持plain/html格式邮件内容, 通过SMTP服务器发送邮件,对系统平台没有依赖,
支持附件发送和SMTP认证。
用法可以看它的perldoc
就它的例 子做些解释
use Mail::SendEasy ;
my $mail =
转载
2010-05-04 12:53:59
1353阅读
PHPIDS缺省支持的邮件报警存在一些不足之处:
1、对页面的访问速度有一定影响。
2、邮件发送以一条告警日志为单位,如果日志比较多的话,我们可能会收到上百封邮件。(可能有某个选项可以设置,但我没找到)
设计一个perl脚本来发送邮件,原理如下:
首先读取phpids的log文件(tmp/phpids_log.txt),然后利用正则对日志内容进行简单的格式话,最后把格式化的内容
原创
2011-05-25 17:13:45
631阅读
使用Perl发送邮件
在之前的监控系统中,邮件系统配置为只能本地调用mail命令发送,这样如果要在每台数据库服务上发送邮件就比较麻烦,需要通过ssh远程调用邮件服务器上的发送脚本。如果要发送文件,还要先将文件复制到邮件服务器上。
随着机器数量的增加,这种方式越来越不灵活。因此希望能通过传统的smtp的方式在任何主机上都能发送邮件
原创
2012-11-02 14:57:38
891阅读
一: select 某些字段:[oracle@jhoa dbi]$ cat 1.pl use DBI; my $dbName = 'orcl'; my $dbUser = 'test'; my $dbUser...
转载
2015-01-19 10:19:00
90阅读
2评论
网页的response header信息:LWP :Library for WWW access in PerlLWP(3) User Contributed Perl Docume...
转载
2015-07-07 13:21:00
268阅读
2评论
Linux使用CPAN模块自动安装 安装前需要先联上线,并且要取得root权限。 perl -MCPAN -e shell获得帮助 cpan
perl 模块列表下面是所有Perl现行版本(5.004)所附的模块和Pragma:----------------------------------------一般程序设计:杂项 ----------------------------------------模块 功能autouse
原创
2013-05-14 10:40:25
546阅读