在Yl中将YYYYMMDD日期拆分为3个部分

Question

如何将YYYYMMDD形式的日期拆分为其成分？

my ($yyyy, $mm, $dd) = $date =~ /(\4d+)(\2d+)(\2d+)/;

Answer 1

my ($year, $month, $day) = unpack "A4A2A2", $date;

pack并且unpack是未充分利用的内置物,可用于强大的力量.