regex - Perlのstrptime文字列に基づいて、Perlで日付の文字列を検索しますか?

Question

有効な日時の全体または一部を含む文字列を検索し、strptime 形式に基づいてその文字列から抽出する方法が必要です。

たとえば、私が持っている場合：

%b%d

この文字列を検索するにはどうすればよいですか:

"asdbsdjwebzadjabsdmwAug20asdfswelasdsvclasdk"

そこから「8月20日」の日時表現を取得しますか?

strptime 形式を正規表現に変換して検索できるモジュールはありますか?

どんな情報でも役に立ちます。ありがとう！

Answer 1

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'};