Perl正則匹配時間，求大蝦幫忙

feiying00917

現(xiàn)在有1張表的數(shù)據(jù)每個都是都是以時間類似2013-7-4這樣的形式索引，但是每次我只希望抓取我指定時間，比如當(dāng)前我需要2013-9-28到2013-10-03時間段的，如何用正則表達式判斷數(shù)據(jù)的時間是不是在需要的范圍內(nèi)，求大俠寫段Perl程序幫忙。謝謝！

范閑丶

#!/usr/bin/perl
while (<DATA>) {
if(/2013-10-[0][123]|2013-9-[23][890]/){
print "OK\n";
}
else{
        print "No!\n";
}
}

__DATA__
2013-9-25
2013-9-26
2013-9-27
2013-9-28
2013-9-29
2013-9-30
2013-10-01
2013-10-02
2013-10-03
2013-10-04
2013-10-05

結(jié)果
No!
No!
No!
OK
OK
OK
OK
OK
OK
No!
No!

范閑丶

昨天這樣寫感覺有點問題：一是程序不靈活，二是是有錯誤，比如2013-9-20沒排除，所以重新寫了一個
#!/usr/bin/perl
while (<DATA>) {
if(/[0-9]{4}-[0-9]{1,2}-[0-9]{2}/){
        $min_date="2013-9-28";
        $max_date="2013-10-03";
        print "$_" if(&com_date($&,$min_date)>=0&&&com_date($&,$max_date)<=0);
}
}
sub com_date
{
        @d0=split /-/,$_[0];
        @d1=split /-/,$_[1];
        for($i=0;$i<3;$i++)
        {
                next if($d0[$i] eq $d1[$i]);
          return $d0[$i]-$d1[$i];
        }
}
__DATA__
2013-9-25
2013-9-26
2013-9-27
2013-9-28
2013-9-29
2013-9-30
2013-10-01
2013-10-02
2013-10-03
2013-10-04
2013-10-05
21sasdasda

結(jié)果
2013-9-28
2013-9-29
2013-9-30
2013-10-01
2013-10-02
2013-10-03

唐歸來

這個應(yīng)該會匹配到2013-09-20吧，回復(fù) 2# 范閑丶


   

唐歸來

碰上了，回復(fù) 3# 范閑丶


   

范閑丶

回復(fù) 5# 唐歸來


    恩，我剛剛修改了代碼，你看看三樓的吧，其實剛?cè)龢且灿袀�問題不過我檢測出來了，呵呵

feiying00917

謝謝!回復(fù) 6# 范閑丶


   

mcshell

1. 2013-(?:10-0?[1-3]|0?9-(?:2[89]|30))$

復(fù)制代碼

feiying00917

回復(fù) 3# 范閑丶

為什么我把時間改成2013/9/28這種格式并把代碼相應(yīng)地方改成“/”，就不行了呢？

while (<DATA>) {
if(/[0-9]{4}-[0-9]{1,2}-[0-9]{2}/){
         $min_date="2013/9/28";
         $max_date="2013/10/3";
         print "$_" if(&com_date($&,$min_date)>=0 and &com_date($&,$max_date)<=0);
}
}
sub com_date
{
         @d0=split /\//,$_[0];
         @d1=split /\//,$_[1];
         for($i=0;$i<3;$i++)
         {
                 next if($d0[$i] eq $d1[$i]);
           return $d0[$i]-$d1[$i];
         }
}
__DATA__
2013-9-25
2013-9-26
2013-9-27
2013-9-28
2013-9-29
2013-9-30
2013-10-01
2013-10-02
2013-10-03
2013-10-04
2013-10-05

anenjoy

回復(fù) 9# feiying00917
你要把你if 匹配的格式也要更該成 “/”