流年飘飘『AskWan』

use Mail::SendEasy ;

  my $mail = new Mail::SendEasy(
  smtp => 'localhost' ,   #SMTP服务器
  user => 'foo' ,           #认证用户名
  pass => 123 ,           #认证密码
  ) ;
#SMTP端口默认为25，连接超时时间默认为120秒
  
  my $status = $mail->send(
  from    => 'sender@foo.com' ,   #发送者邮件地址
  from_title => 'Foo Name' ,         #发件人名字或标题
  reply   => 're@foo.com' ,           #回复信件地址
  error   => 'error@foo.com' ,        #发送出错信息地址
  to      => 'recp@domain.foo' ,     #接受邮件地址
  cc      => 'recpcopy@domain.foo' , # 接受邮件副本地址
  subject => "MAIL Test" ,         # 邮件主题
  msg     => "The Plain Msg..." ,  #文本格式邮件内容
  html    => "<b>The HTML Msg...</b>" , #html格式邮件内容，有这个则msg无效
  msgid   => "0101" , #给邮件头加一个ID号
  ) ;
  
  if (!$status) { print $mail->error ;}

#!/usr/bin/perl -w
use DBD::mysql
$user="askwan";
$password="123456";
$hostname="192.168.0.251";
$database="test";
$dsn = "DBI:mysql:database=$database;host=$hostname";
$dbh=DBI->connect($dsn,$user,$password);
eval { $dbh->do("DROP TABLE T_askwan") };
      print "Dropping T_askwan failed: $@\n" if $@;
$dbh->do("CREATE TABLE T_askwan (id INTEGER, name VARCHAR(20),email VARCHAR(30))");
for(my $i=1;$i<10000001;$i++){
   $dbh->do("INSERT INTO T_askwan VALUES ($i, " . $dbh->quote("$i-Tim") . "," . $dbh->quote("$i-askwan\@yahoo.cn") .")");
   if(!($i%1000)){
   print "$i rows has insert!\n";
   }
}
print "sucessfully insert into 10000000 rows data !\n";
$dbh->disconnect();