GNUer's blog

如果是登陆到远程smtp服务器上发送的话可以使用
[pl]
#!/usr/bin/perl -w
use Mail::Sender;
use strict;
printf("please input your passwd:\n");
system "stty -echo";
my $pass;
chomp($pass=<STDIN>);
system "stty echo";
my $sender= new Mail::Sender{
smtp=> ‘smtp.126.com’,
from=>’user@126.com’,
auth=>’LOGIN’,
authid=>’user’,
authpwd=> $pass,
debug=>’./perllog’
};
$sender->MailMsg({
to=>’user2@126.com’,
subject=>’perl send mail’,
msg=>’中文测试’,
debug=>’./perllog’
}) or die "failed";
$sender->Close();
再提供一个可以发送附件的版本，直接使用内部的邮件服务器发送一些小文件。如果想使用远程服务器可以根据前面的脚本修改。
#!/usr/bin/perl -w
use Mail::Sender;
my $txt;
$txt="hi,all :\n\t xxxx!";
&sendmsg($ARGV[0],$txt,$ARGV[1]);
sub sendmsg()
{
my $add=$_[0]; #email address
my $msg="$_[1]"; #email txt
my $file=$_[2];#file
open my $LOG ,">/tmp/mail.log";
my $sender =new Mail::Sender
{

smtp=>’your smtp server host’,
from=>’xxx@xxx.com’,
debug=>’./perllog’
} or die "new sender failed.";

$sender->MailFile(
{
to=>$add,
subject=>"hello",
msg=>"$msg",
debug=>$LOG,
file => $file,
charset => ‘gb2312’
}
) or die "$Mail::Sender::Error\n";
close($LOG);
$sender->Close;
}
[/pl]

这个是去年管理测试环境的时候，直接用脚本批量操作数据库
[pl]
#!/usr/bin/perl -w
use DBI;
use strict;
my $dbh;
my $INFILE=$ARGV[0];
open LIST ,"<$INFILE" or die "can’t open $INFILE\n";
my $table="table_appinfo";
$dbh=&connect();
my $qurey=qq{insert into $table (ip,name,manage,dev,location) values(?,?,?,?,?) };
my $sth=$dbh->prepare($qurey) || die $dbh->errstr;
my $dev="lab";
my $manage="namexxx";
my $location=’location’;
while(my $line=<LIST>){
my ($ip,$name)=split /\s+/,$line;
$sth->execute($ip,$name,$manage,$dev,$location);
print "insert $ip $name\n";
}
$dbh->disconnect();

exit(0);
##############################
sub connect() {
my $source=q{DBI:mysql:database=xxx;host=xx.xx.xx};
my $user="xxx";
my $passwd="xxxx";
my $dbh0=DBI->connect($source,$user,$passwd,{RaiseError=>1}) or die "connect mysql failed.";
$dbh0->do("SET character_set_client = ‘gb2312’");
$dbh0->do("SET character_set_connection = ‘gb2312’");
$dbh0->do("SET character_set_results= ‘gb2312’"); #解决GBK编码问题
return $dbh0;
}
[/pl]

以前现用perl为我们的首页系统写个daemon进程来做更新首页的事情，其实简单的说就是前端的同事把新的页眉放到存储里面。我的脚本去定期检测一下md5值，然后取出来。取出来后会对指定的字段进行替换。但是在做的时候就遇到点问题，日志一直不打出来。后来简单测试了一下
[pl]
#!/usr/bin/perl
use strict;
use warnings;
open LOG,">test.out" or die "open file failed\n";
foreach my $k (0..25)
{

print LOG ($k,"\n");
sleep(1);
}
[/pl]
运行这个的时候你会发现只有程序结束了才会写到文件。后来咨询了一下学了这样搞
[pl]
#!/usr/bin/perl
use strict;
use warnings;
use IO::Handle;
open LOG,">test.out" or die "open file failed\n";
LOG->autoflush();
foreach my $k (0..25)
{

print LOG ($k,"\n");
sleep(1);
}
[/pl]

当然也可以选择这样做
[pl]
#!/usr/bin/perl
use strict;
use warnings;
open LOG,">test.out" or die "open file failed\n";
foreach my $k (0..25)
{
syswrite(LOG,"$k\n",1024);
sleep(1);
}
[/pl]