我很难想出如何使用perl比较MySQL日期和当前系统时间。
我有一个在cron作业中运行的脚本，如果当前系统日期/时间超过返回记录的日期/时间，它将发送通知：
一个应用程序显示一个表格视图：
EventId Device Location
CC: 123 something BFE
TT: 456 anotherthing BFE
脚本的工作方式是查找字段EventID中的值，从ID（数字部分）中解析类型（CC：，TT：等）。 ID是另一个数据库/表中的唯一ID，其中包含结束时间字段。 EventID本身不是唯一的，并且在表中可能有重复项。每个“类型”都有子例程，因为每种类型都有不同的数据库和/或表。
目标是脚本每分钟运行一次并切换Expired的值。某些内容可能会过期，进行更改，然后取消过期状态。
脚本运行良好，但存在一个问题，与时区相关，根据我迄今收到的反馈。如果我没有显式设置时区为'America/New_York'（$now）以获取当前系统时间，则会出现错误（$notz）。因此，我需要找到一种方法使MySQL返回的日期能够准确地与当前系统时间进行比较。 $now->set_time_zone('America/New_York')似乎也不起作用。
我不确定如何做到这一点，甚至不确定我迄今为止编写的代码是否是最佳方法（对Perl仍然相当新）。
#!/usr/bin/perl
use DBI;
use DateTime;
use DateTime::Format::MySQL;
use Switch;
my $now = DateTime->now(time_zone => 'America/New_York');
my $notz = DateTime->now();
my $maindb = DBI=>connect(database);
my $seteventsql = qq { select * from view where EventId like 'IE:' or EventId like 'TT:' or EventId like 'CC:';};
my $commit = $livedb->prepare($seteventsql);
$commit->execute() || die "could not set event: $DBI::errstr";
while(@events = $commit->fetchrow_array()) {
(my $type, my $id) = split (/ /,$events[0]);
$id =~ s|\D||g;
switch ($type) {
case ('CC:') {check_expired_case($id);}
case ('TT:') {check_expired_task($id);}
case ('IE:') {check_expired_event($id);}
}
}
sub check_expired_case {
my $id = shift; #id = 123
my $sql = qq { select id, status_id, item_enddate from item where id = ?; };
my $exec = $itemdb->prepare($sql);
$exec->execute($id);
while(my @row = $exec->fetchrow_array()) {
my $status = $row[1];
my $end = DateTime::Format::MySQL->parse_datetime($row[2]);
if ($now > $end || $status ne 3 || $status ne 6) {
$sql = qq { update item set Expired = 1 where EventId = '$eventid';};
$maindb->do($sql)
}else{
$sql = qq { update item set Expired = 0 where EventId = '$eventid';};
$maindb->do($sql)
}
}
$exec->finish();
}
NoTZ: 2010-09-10T01:27:19
Now: 2010-09-09T21:27:19
End: 2010-09-10T17:00:00
提前感谢您。我希望我已经很好地解释了这个问题，但很难解释所有事情的关系。