如何从perl中的字符串模式中提取日期

Question

如何从perl中的此字符串中提取日期Simple_Invoice_Report.Summary.20150701000000.csv？

即。 20150701

你能帮帮我吗。

Answer 1

以下是从上面的字符串中提取数据的代码：

#!/usr/bin/perl
use strict;
use warnings;
my $string = q{Simple_Invoice_Report.Summary.20150701000000.csv};
if($string =~ m#.(\d{8})\d+.csv#g){
    print $1;
}

输出：20150701