use strict;

use DBI;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
use Net::SMTP;
sub send_mail{
if (@_ != 2){print “请输入2个参数 ”;exit 1};
(n) = @_; #将参数赋值给变量
my m;
my to_address = $m;

my mail_pwd = ‘xxxxxx’;
my $mail_server = ‘smtp.exmail.qq.com’;

my $from    = "From: $mail_user
";
my $subject = "Subject: zjcap info
";
my $info = "$CurrTime--$n";
 my $message = <<CONTENT; 
 $info

CONTENT
my mail_server);

$smtp->auth($mail_user, $mail_pwd) || die "Auth Error! $!";
$smtp->mail($mail_user);
$smtp->to($to_address);

$smtp->data();             # begin the data
$smtp->datasend($from);    # set user
$smtp->datasend($subject); # set subject
$smtp->datasend("

");
$smtp->datasend("$message
"); # set content
$smtp->dataend();
$smtp->quit();

}
my dbUser = ‘query’;
my sql = “select count(*) from VXSPACE.FORMMAIN_1530”;
my dbh->prepare($sql);

$sth->execute();

my sth->fetchrow_array();
print “$var is $var ”;

读取上一次文件

#
open( A, “<”, “count.txt” );
while () {
_;
};
print “上次记录的记录数为$count ”;

最新的文件记录数 写入count.txt

open( B, “>”, “count.txt” );
print B (“$var ”);

if ( defined(count &&var !=0 ){
print “开始处理 ”;
my sth->fetchrow_array()){
print “@arr ”;send_mail(‘zhaoyangjian@zjcap.cn’,”@arr ”)

}

}