Perl如何将获取的下周五本地时间转为YYYY-MM-DD格式？

这个问题的核心是你用了错误的格式字符串来解析localtime返回的日期字符串——咱们一步一步来解决它：

先说说你出错的原因 #

你写的Time::Piece->strptime("$nextfri", '%Y %m %d')里，格式%Y %m %d是「年 月 日」的结构，但$nextfri的实际格式是Fri May 11 13:47:24 2018（星期缩写+月份缩写+日期+时间+年份），两者完全不匹配，Time::Piece自然无法解析，所以抛出了错误。

方案一：全程用Time::Piece处理（推荐，更简洁高效） #

没必要先把时间转成字符串再反向解析，直接在计算下周五的过程中用Time::Piece的对象方法处理，一步到位得到你要的格式：

use Time::Piece;

my $now = localtime; # Time::Piece重载了localtime，返回对象
my $next_fri;

for my $i (1..7) {
    my $t = $now + $i * 24 * 3600; # 直接对时间对象做加法
    if ($t->wday == 6) { # Time::Piece的wday规则：1=周日，6=周五
        $next_fri = $t->ymd; # 直接生成YYYY-MM-DD格式的字符串
        last;
    }
}

print "下周五日期（SQL格式）：$next_fri\n";

方案二：修复原代码的strptime解析 #

如果坚持要用你原来的循环生成$nextfri字符串，只需要把解析用的格式字符串改成和localtime输出匹配的即可：

use Time::Piece;

# 你的原代码，生成$nextfri
my $nextfri;
for(my $i = 1; $i < 8; $i++) { 
    my $t = time() + $i * 24 * 3600; 
    next unless (localtime($t))[6] == 5; # 原生localtime的[6]：0=周日，5=周五
    $nextfri = scalar(localtime($t)); 
    last; 
}

# 用正确的格式字符串解析
my $time_obj = Time::Piece->strptime($nextfri, '%a %b %d %H:%M:%S %Y');
my $sql_format_date = $time_obj->ymd;

print "转换后的日期：$sql_format_date\n";

这里的%a对应星期缩写（如Fri）、%b对应月份缩写（如May）、%d是日期、%H:%M:%S是时间、%Y是四位年份，完全匹配localtime的输出格式。

额外优化：不用循环，直接计算下周五 #

其实还有更高效的写法，不用循环遍历7天，直接通过当前星期几计算需要偏移的天数：

use Time::Piece;

my $now = localtime;
# 计算距离下周五的天数：如果今天是周五，取下周的；否则直接算差值
my $days_to_add = (6 - $now->wday) % 7;
$days_to_add = 7 if $days_to_add == 0;

my $next_fri = $now + $days_to_add * 24 * 3600;
print $next_fri->ymd;

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