如何将YYYYMMDD形式的日期拆分为其成分？
my ($yyyy,$mm,$dd) = $date =~ /(\4d+)(\2d+)(\2d+)/;
解决方法
my ($year,$month,$day) = unpack "A4A2A2",$date;
打包和拆包是未充分利用的内置设备,可用于强大的功率.
my ($yyyy,$mm,$dd) = $date =~ /(\4d+)(\2d+)(\2d+)/;
my ($year,$month,$day) = unpack "A4A2A2",$date;
打包和拆包是未充分利用的内置设备,可用于强大的功率.
