regex - 根据 Perl 中的 strptime 字符串在 perl 中搜索日期字符串？

Question

我需要一种方法来搜索包含有效的全部或部分日期时间的任何字符串，并根据 strptime 格式从该字符串中提取它。

例如，如果我有：

%b%d

如何搜索此字符串：

"asdbsdjwebzadjabsdmwAug20asdfswelasdsvclasdk"

并从中获得“8 月 20 日”的一些日期时间表示？

是否有任何模块允许我将 strptime 格式转换为正则表达式并像那样搜索它？

任何信息都有帮助。谢谢！

Answer 1

You can use Regexp::Common::time:

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use Regexp::Common qw(time);

my $str = "asdbsdjwebzadjabsdmwAug20asdfswelasdsvclasdk";
say "matches" if $str =~ $RE{time}{strftime}{-pat => '%b%d'};