Perl中的MM / DD / YY正则表达式

Question

我想抓住“asd06 / 05/04”和“06/05/04”。我正在使用

 m/[a-zA-Z]*[0-9][0-9]\/[0-9][0-9]\/[0-9][0-9]|[0-9][0-9]\/[0-9][0-9]\/[0-9][0-9]/

这个问题。

   if($word =~ "m/[a-zA-Z]*[0-9][0-9]\/[0-9][0-9]\/[0-9][0-9]|[0-9][0-9]\/[0-9][0-9]\/[0-9][0-9]/"){
        print "$word => catched";}

    else{
        print "$word => not catched\n";
    }

我该怎么做。

谢谢。

Answer 1

我认为你的正则表达式有点复杂，试试这个：

$word = "asd06/05/04";
if( $word =~ /(\w+)?\d{2}\/\d{2}\/\d{2}/ ){
  print "$word => catched \n";
} else{
  print "$word => not catched\n";
}