如何将格式为 YYYYMMDD 的日期拆分为其组成部分？
my ($yyyy, $mm, $dd) = $date =~ /(\4d+)(\2d+)(\2d+)/;
最佳答案
my ($year, $month, $day) = unpack "A4A2A2", $date;
pack和 unpack是未充分利用的内置函数，可以发挥强大的作用。
关于regex - 在 Perl 中将 YYYYMMDD 日期拆分为 3 部分，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/3169453/