Perl正则匹配时间，求大虾帮忙

feiying00917

现在有1张表的数据每个都是都是以时间类似2013-7-4这样的形式索引，但是每次我只希望抓取我指定时间，比如当前我需要2013-9-28到2013-10-03时间段的，如何用正则表达式判断数据的时间是不是在需要的范围内，求大侠写段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

结果
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

结果
2013-9-28
2013-9-29
2013-9-30
2013-10-01
2013-10-02
2013-10-03

唐归来

这个应该会匹配到2013-09-20吧，回复 2# 范闲丶


   

唐归来

碰上了，回复 3# 范闲丶


   

范闲丶

回复 5# 唐归来


    恩，我刚刚修改了代码，你看看三楼的吧，其实刚三楼也有个问题不过我检测出来了，呵呵

feiying00917

谢谢!回复 6# 范闲丶


   

mcshell

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

复制代码

feiying00917

回复 3# 范闲丶

为什么我把时间改成2013/9/28这种格式并把代码相应地方改成“/”，就不行了呢？

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

回复 9# feiying00917
你要把你if 匹配的格式也要更该成 “/”