如何使用perl在XML中验证日期

Question

我想验证来自XML的日期。 例如       2014-03-11＃yyyy-mm-dd格式

我想确保它应该采用相同的格式。我在perl中使用这个XML。 有没有办法做到这一点。任何帮助，将不胜感激。 我知道XML :: Checker模块，但这不符合我的目的。

Answer 1

Types::XSD允许您根据任何XML Schema内置数据类型验证数据。

use Types::XSD qw(is_Date);

for my $date (qw( 2000-02-28 2000-02-29 2000-02-30 )) {
   printf(
      "%s - %s\n",
      is_Date($date) ? "ok" : "not ok",
      $date,
   );
}