blocks|key|3969345|text|正如其他人所指出的，如果这是一个来自数据库的日期字段，那么它应该是一个定义良好的格式，所以您可以使用一个简单的正则表达式，比如toolkit提供的正则表达式。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3969346|但这有一个缺点，即它将接受无效的日期，如2009-02-30。同样，如果您正在处理的日期成功地变成了数据库中的日期类型字段，那么您应该是安全的。|3969347|更健壮的方法是使用来自CPAN的许多日期/时间模块中的一个。Date::Manip可能是一个很好的选择，尤其是查看ParseDate()函数。|3969348|http://metacpan.org/pod/Date::Manip|offset|length|3969349|entityMap|0|LINK|mutability|MUTABLE|url^0|0|0|0|0|Z|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|R|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|S|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|T|8|@]|9|@$H|U|I|V|1|W]]|A|$]]|$1|J|3|-4|5|6|7|X|8|@]|9|@]|A|$]]]|K|$L|$5|M|N|O|A|$P|G]]]]

As noted by others, if this is a date field from a database, it should be coming in a well-defined format, so you can use a simple regex, such as that given by toolkit.

But that has the disadvantage that it will accept invalid dates, such as 2009-02-30. Again, if you're handling dates that successfully made it into a date-typed field in a DB, you should be safe.

A more robust approach would be to use one of the many Date/Time modules from CPAN. Probably Date::Manip would be a good choice, and in particular check out the ParseDate() function.

<a href="http://metacpan.org/pod/Date::Manip" rel="nofollow noreferrer">http://metacpan.org/pod/Date::Manip</a>

blocks|key|3969296|text|OWASP+Validation+Regex+Repository版本的日期为美国格式，支持闰年：|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|3969297|3969298|+%5E(?:(?:(?:0?13578%7C102)(/%7C-%7C.)31)\1%7C(?:(?:0?1,3-9%7C10-2)(/%7C-%7C.)(?:29%7C30)\2))(?:(?:16-9%7C2-9\d)?\d{2})$%7C%5E(?:0?2(/%7C-%7C.)29\3(?:(?:(?:16-9%7C2-9\d)?(?:048%7C2468%7C13579)%7C(?:(?:16%7C2468%7C3579)00))))$%7C%5E(?:(?:0?1-9)%7C(?:10-2))(/%7C-%7C.)(?:0?1-9%7C1\d%7C20-8)\4(?:(?:16-9%7C2-9\d)?\d{2})$|blockquote|3969299|3969300|3969301|该Regular+Expression+Library包含一个与其他建议类似的更简单的版本，该版本被翻译为您的问题：|3969302|%5E\d{4}-\d{1,2}-\d{1,2}$|code-block|syntax|javascript|3969303|entityMap|0|LINK|mutability|MUTABLE|url|http://www.owasp.org/index.php/OWASP_Validation_Regex_Repository|1|http://regexlib.com/Search.aspx?k=date^0|0|X|0|0|0|0|0|0|1|Q|1|0|0^^$0|@$1|2|3|4|5|6|7|10|8|@]|9|@$A|11|B|12|1|13]]|C|$]]|$1|D|3|-4|5|6|7|14|8|@]|9|@]|C|$]]|$1|E|3|F|5|G|7|15|8|@]|9|@]|C|$]]|$1|H|3|-4|5|6|7|16|8|@]|9|@]|C|$]]|$1|I|3|-4|5|6|7|17|8|@]|9|@]|C|$]]|$1|J|3|K|5|6|7|18|8|@]|9|@$A|19|B|1A|1|1B]]|C|$]]|$1|L|3|M|5|N|7|1C|8|@]|9|@]|C|$O|P]]|$1|Q|3|-4|5|6|7|1D|8|@]|9|@]|C|$]]]|R|$S|$5|T|U|V|C|$W|X]]|Y|$5|T|U|V|C|$W|Z]]]]

The <a href="http://www.owasp.org/index.php/OWASP_Validation_Regex_Repository" rel="nofollow noreferrer">OWASP Validation Regex Repository</a>'s version of dates in US format with support for leap years:

<blockquote>
 ^(?:(?:(?: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})$
</blockquote>

The <a href="http://regexlib.com/Search.aspx?k=date" rel="nofollow noreferrer">Regular Expression Library</a> contains a simpler version along the lines of the other suggestions, which is translated to your problem:

<pre><code>^\d{4}-\d{1,2}-\d{1,2}$
</code></pre>

blocks|key|3969254|text|怎么样|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3969255|/\d{2}\d{2}?-(0[1-9]%7C1[0-2])-(0[1-9]%7C[1-2][0-9]%7C3[0-1])/|code-block|syntax|javascript|3969256|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

How about

<pre><code>/\d{2}\d{2}?-(0[1-9]|1[0-2])-(0[1-9]|[1-2][0-9]|3[0-1])/
</code></pre>

blocks|key|4813034|text|\d可以匹配来自其他语言的数字字符。YYY真的是一个有效的年份吗？如果必须是四位数、破折号、两位数、破折号、两位数，我更喜欢/%5E[0-9]{4}-[0-9]{2}-[0-9]{2}$/或/%5E[12][0-9]{3}-[0-9]{2}-[0-9]{2}$/。注意要匹配的字符串周围的空格字符。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|4813035|当然，这不会检查存在的字符的合理性，除了第二个示例中的第一个字符。如果这是必需的，您最好将其传递给日期解析模块，然后检查其输出是否符合逻辑结果。|4813036|entityMap^0|1Q|U|2L|Y|0|0^^$0|@$1|2|3|4|5|6|7|J|8|@$9|K|A|L|B|C]|$9|M|A|N|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|O|8|@]|D|@]|E|$]]|$1|H|3|-4|5|6|7|P|8|@]|D|@]|E|$]]]|I|$]]

\d could match number characters from other languages. And is YYY really a valid year? If it must be four digits, dash, two digits, dash, two digits, I'd prefer <code>/^[0-9]{4}-[0-9]{2}-[0-9]{2}$/</code> or <code>/^[12][0-9]{3}-[0-9]{2}-[0-9]{2}$/</code>. Be aware of space characters around the string you're matching.

Of course, this doesn't check the reasonableness of the characters that are there, except for the first character in the second example. If that's required, you'll do well to just pass it to a date parsing module and then check its output for logical results.

blocks|key|750331|text|好的，你可以从下面开始：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|750332|/\d{4}-(0[1-9]%7C1[0-2])-(0[1-9]%7C[12]\d%7C30%7C31)/+|code-block|syntax|javascript|750333|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Well you can start with:

<pre><code>/\d{4}-(0[1-9]|1[0-2])-(0[1-9]|[12]\d|30|31)/ 
</code></pre>

blocks|key|4813204|text|最好的和轻量级的解决方案是使用Date::Calc的check_date子例程，下面是一个示例：|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|4813205|use+strict;
use+warnings
use+Date::Calc+qw[check_date];

##+string+in+YYYY-MM-DD+format,+you+can+have+any+format
##+you+like,+just+parse+it
my+@dt_dob+=+unpack("A4xA2xA2",$str_dob_date);

unless(check_date(@dt_dob))+{
++++warn+"Oops!+invalid+date!";
}|code-block|syntax|javascript|4813206|我希望这是有帮助的:-)|4813207|entityMap|0|LINK|mutability|MUTABLE|url|http://search.cpan.org/perldoc?Date%253A%253ACalc^0|Q|A|F|A|0|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@$9|V|A|W|B|C]]|D|@$9|X|A|Y|1|Z]]|E|$]]|$1|F|3|G|5|H|7|10|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|11|8|@]|D|@]|E|$]]|$1|M|3|-4|5|6|7|12|8|@]|D|@]|E|$]]]|N|$O|$5|P|Q|R|E|$S|T]]]]

The best and lightweight solution is using <a href="http://search.cpan.org/perldoc?Date%3A%3ACalc" rel="nofollow">Date::Calc</a>'s check_date sub routine, here's an example:

<pre><code>use strict;
use warnings
use Date::Calc qw[check_date];

## string in YYYY-MM-DD format, you can have any format
## you like, just parse it
my @dt_dob = unpack("A4xA2xA2",$str_dob_date);

unless(check_date(@dt_dob)) {
 warn "Oops! invalid date!";
}
</code></pre>

I hope that was helpful :-)

blocks|key|1241648|text|我强烈建议不要编写自己的正则表达式来做这件事。日期/时间解析很简单，但有一些棘手的方面，这是一个已经解决了数百次的问题。您不需要设计、编写和调试另一个解决方案。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1241649|如果你想要一个正则表达式，最好的解决方案可能是使用我的Regexp::Common::time插件的Regexp::Common模块。您可以指定简单或复杂、严格或模糊的日期/时间匹配，并且它具有非常广泛的测试套件。|1241650|如果您只想解析特定的日期格式，最好使用Dave+Rolsky出色的DateTime模块的众多解析/格式化插件中的一个。|1241651|如果您想在匹配日期/时间值之后对它们进行验证，我建议使用Time::Normalize模块。|1241652|希望这能有所帮助。|1241653|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|M|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|N|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|O|8|@]|9|@]|A|$]]|$1|H|3|I|5|6|7|P|8|@]|9|@]|A|$]]|$1|J|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|K|$]]

I would very strongly recommend AGAINST writing your own regular expression to do this. Date/time parsing is simple, but there are some tricky aspects, and this is a problem that has been solved hundreds of times. No need for you to design, write, and debug yet another solution.

If you want a regular expression, the best solution is probably to use my Regexp::Common::time plugin for the Regexp::Common module. You can specify simple or complex, rigid or fuzzy date/time matching, and it has a very extensive test suite.

If you just want to parse specific date formats, you may be better off using one of the many parsing/formatting plugins for Dave Rolsky's excellent DateTime module.

If you want to validate the date/time values after you have matched them, I would suggest my Time::Normalize module.

Hope this helps.

blocks|key|3969453|text|我认为使用不带外部检查的正则表达式太复杂了！我使用一个小sub来获取它：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3969454|sub+check_date+{
++++my+$date_string+=+shift;

++++#+Check+the+string+fromat+and+get+year,+month+and+day+out+of+it.
++++#+Best+to+use+a+regex.
++++return+0+unless+$date_string+=~+m/%5E(\d{4})-(0[1-9]%7C1[0-2])-(0[1-9]%7C[12][0-9]%7C3[01])$/;
++++
++++#+31.+in+a+month+with+30+days
++++return+0+if+($3+>=+31+and+($2+==+4+or+$2+==+6+or+$2++==+9+or+$2+==+11));
++++#+February+30.+or+31.
++++return+0+if+($3+>=+30+and+$2+==+2);
++++#+February+29.+in+not+a+leap+year.
++++return+0+if+($2+==+2+and+$3+==+29
+++++++++++++++++and+not+($1+%25+4+==+0+and+($1+%25+100+!=+0+or+$1+%25+400+==+0)));
++++
++++#+Date+is+valid
++++return+1;
}|code-block|syntax|javascript|3969455|我的想法(和大部分代码)都是从regular-expressions.info得到的。还有其他的例子。|offset|length|3969456|entityMap|0|LINK|mutability|MUTABLE|url|https://www.regular-expressions.info/dates.html^0|0|0|F|O|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@]|9|@$I|V|J|W|1|X]]|A|$]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|A|$]]]|L|$M|$5|N|O|P|A|$Q|R]]]]

I think using a regex without outer check is much to complicated! I use a little sub to get it:
<pre class="lang-perl prettyprint-override"><code>sub check_date {
 my $date_string = shift;

 # Check the string fromat and get year, month and day out of it.
 # Best to use a regex.
 return 0 unless $date_string =~ m/^(\d{4})-(0[1-9]|1[0-2])-(0[1-9]|[12][0-9]|3[01])$/;
 
 # 31. in a month with 30 days
 return 0 if ($3 &gt;= 31 and ($2 == 4 or $2 == 6 or $2 == 9 or $2 == 11));
 # February 30. or 31.
 return 0 if ($3 &gt;= 30 and $2 == 2);
 # February 29. in not a leap year.
 return 0 if ($2 == 2 and $3 == 29
 and not ($1 % 4 == 0 and ($1 % 100 != 0 or $1 % 400 == 0)));
 
 # Date is valid
 return 1;
}
</code></pre>
I got the idea (and most of the code) from <a href="https://www.regular-expressions.info/dates.html" rel="nofollow noreferrer">regular-expressions.info</a>. There are other examples too.

I am getting a date field from the database in one of my variables, at the moment I am using the following code to check if the date is in "yyyy-mm-dd" format

<pre><code>if ( $dat =~ /\d{3,}-\d\d-\d\d/ )
</code></pre>

My question, is there a better way to accomplish this.

Many Thanks

How I can check for a valid date format in Perl?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我从数据库的一个变量中获取了一个日期字段，目前我使用以下代码检查日期是否为"yyyy-mm-dd“格式if ( $dat =~ /\d{3,}-\d\d-\d\d/ )我的问题是，有没有更好的方法来实现这一点。非常感谢

问如何在Perl中检查有效的日期格式？
EN

回答 8

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Perl中检查有效的日期格式？EN

回答 8

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Perl中检查有效的日期格式？
EN