Perl日期验证和更新SQL数据库

Question

$curdate的格式为yyyymmdd

例如20141225

如果（$ curdate）='dd'部分。其中25岁

在帐户中更新表帐户集seq值= 20150101

如何继续使用Perl？

因为我对Perl完全陌生。请帮我解决这个问题。

Answer 1

请澄清要求。 根据您的描述，我对您的问题的分析是。

• 您想查看字符串的日期组件
• 根据字符串的日期组件，您将更新表格

所以在半码和伪代码中

my $curdate = 20140125;
my $day_component = substr($curdate, 6, 2);

if ($day_component == '25') {
    # Run SQL to update table
}