perl - 如何在 Perl 中检查有效的日期格式？

Question

我正在我的一个变量中从数据库中获取一个日期字段，目前我正在使用以下代码检查日期是否为“yyyy-mm-dd”格式

if ( $dat =~ /\d{3,}-\d\d-\d\d/ )

我的问题是，有没有更好的方法来实现这一点。

非常感谢

Answer 1

OWASP Validation Regex Repository支持闰年的美国格式日期版本:

^(?:(?:(?:0?[13578]|1[02])(/|-|.)31)\1|(?:(?:0?[1,3-9]|1[0-2])(/|-|.)(?:29|30)\2))(?:(?:1[6-9]|[2-9]\d)?\d{2})$|^(?:0?2(/|-|.)29\3(?:(?:(?:1[6-9]|[2-9]\d)?(?:0[48]|[2468][048]|[13579][26])|(?:(?:16|[2468][048]|[3579][26])00))))$|^(?:(?:0?[1-9])|(?:1[0-2]))(/|-|.)(?:0?[1-9]|1\d|2[0-8])\4(?:(?:1[6-9]|[2-9]\d)?\d{2})$

Regular Expression Library包含与其他建议一致的更简单版本，该版本已转换为您的问题:

^\d{4}-\d{1,2}-\d{1,2}$