Perlで日付マスクを抽出する正規表現とは何ですか？

Question

私はディレクトリ仕様を含むperlの文字列を持っています。文字列に、日付マスクを構成する部分文字列の個体または組み合わせが含まれている場合は、その部分文字列を抽出します。たとえば、ディレクトリの仕様は次のようになります。

/mydir/data/YYYYMMDD 

"YYYYMMDD"文字列を抽出できます。しかし、パスのその部分は、以下の文字列のいずれかの個人または組み合わせが考えられます。

YY 
YYYY 
MM 
DD 

だから、ディレクトリ仕様文字列が読むことができる：

/mydir/data/DD/data2 

を、私は「DD」は、結果として返さたいです正規表現の比較の。これらの日付マスク文字列のうちの1つ以上を含む必要があり、その文字列が2つの "/"文字の間にあるか、文字列の最後に存在する必要がある場合、文字列をキャプチャするにはどうすればよいですか？

Answer 1

私は

my ($date) = m{/([0-9]{2,8})(?:/|$)} 

を使用したいと

not(length($date) % 2) # $date has even length 

と、おそらく有効な組み合わせのためのいくつかのチェックかどうかをチェックします。

更新： OK、マスクだけではなく、番号を取得するために、あなたはこれがそうでYYDDYYまたはYYYYMMYYなどのすべての無効な組み合わせを除外しなければならない

my ($date) = m{/([YMD]{2,8})(?:/|$)}; 
my $check = $date; 
$check =~ s/YYYY/y/; 
$check =~ s/MM//; 
$check =~ s/DD//; 
print "Matches $date\n" if grep $_ eq $check, (q{}, 'y', 'YY'); 

にこれを変更することができます。 - M - D、これをマスクフィールドを想定し

#!/usr/bin/perl 
use warnings; 
use strict; 

my @paths = qw(
    /mydir/data/YYYYMMDD 
    /mydir/data/YY/data2 
    /mydir/data/YYMM/data2 
    /mydir/data/DD/data2 
); 

foreach my $path (@paths) { 
    my($date) = grep /^(([YMD])\2)+$/, split '/', $path; 
    print "$path: $date\n"; 
} 

Answer 2

私はあなたが1日1たいと、そうでない場合はそこに一つだけ「日付」の成分である、または仮定します何が必要でしょう。

my ($mask) = $path =~ m{/((?:YY){0,2} (?:MM)? (?:DD)?) (?:/|$) }x; 

Answer 3

順Yに常にある：

Answer 4

私がそうでなければ、それは意味がないので、YYYYとYYの両方が、同じパターンで表示されてはならないという仮定を作ってるんです。

use Data::Munge qw(list2re); 
use List::MoreUtils qw(uniq); 
use Algorithm::Combinatorics qw(variations); 
use Perl6::Take qw(gather take); 

list2re 
uniq 
gather { 
    for my $n ([qw(YYYY MM DD)], [qw(YY MM DD)]) { 
     for my $k (1..scalar @$n) { 
      take map { join q(), @$_ } variations($n, $k) 
     } 
    } 
} 

この式は、正規表現(?^:DDMMYYYY|DDYYYYMM|MMDDYYYY|MMYYYYDD|YYYYDDMM|YYYYMMDD|DDMMYY|DDYYMM|DDYYYY|MMDDYY|MMYYDD|MMYYYY|YYDDMM|YYMMDD|YYYYDD|YYYYMM|DDMM|DDYY|MMDD|MMYY|YYDD|YYMM|YYYY|DD|MM|YY)を返します。 （Semi）優勝のための機能プログラミング！