Perl 5.16.3中获取两个月前月初日期及代码优化问询

问题1：一步获取当月1日（结束日期） #

Perl 5.16.3自带的Time::Piece模块支持直接将时间截断到月份维度，一步得到当月第一天的0点时间，无需重复操作对象：

use Time::Piece;

# 直接获取当月1日的Time::Piece对象（时分秒默认00:00:00）
my $end_tp = localtime->truncate(to => 'month');
# 格式化为数据库所需的字符串格式（示例为YYYY-MM-DD）
my $end_date = $end_tp->strftime('%Y-%m-%d');

truncate(to => 'month')会自动将当前时间调整到当月第一天的起始时刻，完全满足结束日期的需求。

问题2：准确获取两个月前的月初日期 #

固定减92天的方式会因不同月份天数差异（如2月、31天的大月）导致日期偏差，正确的做法是直接计算目标月份的年份和月份，再构造该月的第一天：

use Time::Piece;
use Time::Local;

my $now = localtime;
my ($current_year, $current_mon) = ($now->year, $now->mon);

# 计算两个月前的月份与年份，处理跨年情况
my $target_mon = $current_mon - 2;
my $target_year = $current_year;
if ($target_mon <= 0) {
    $target_mon += 12;
    $target_year -= 1;
}

# 构造目标日期的时间戳（timelocal参数顺序：秒, 分, 时, 日, 月(0-11), 年(减1900)）
my $start_epoch = timelocal(0, 0, 0, 1, $target_mon - 1, $target_year - 1900);
my $start_tp = localtime($start_epoch);
# 格式化为数据库所需的字符串格式
my $start_date = $start_tp->strftime('%Y-%m-%d');

这种方式通过直接定位目标月份的第一天，完全避免了天数计算的误差，即使遇到跨年场景（如1月的两个月前为去年11月1日）也能正确处理。

完整示例代码 #

use strict;
use warnings;
use Time::Piece;
use Time::Local;

# 获取结束日期：当月1日
my $end_tp = localtime->truncate(to => 'month');
my $end_date = $end_tp->strftime('%Y-%m-%d');

# 获取起始日期：两个月前的1日
my $now = localtime;
my ($current_year, $current_mon) = ($now->year, $now->mon);

my $target_mon = $current_mon - 2;
my $target_year = $current_year;
if ($target_mon <= 0) {
    $target_mon += 12;
    $target_year -= 1;
}

my $start_epoch = timelocal(0, 0, 0, 1, $target_mon - 1, $target_year - 1900);
my $start_tp = localtime($start_epoch);
my $start_date = $start_tp->strftime('%Y-%m-%d');

# 输出结果
print "起始日期: $start_date\n";
print "结束日期: $end_date\n";

内容的提问来源于stack exchange，提问作者vkk05