Perl正則表達(dá)式怎樣驗(yàn)證日期格式

小樊
81
2024-10-09 03:16:21

在Perl中，你可以使用正則表達(dá)式來驗(yàn)證日期格式。以下是一個(gè)示例，用于驗(yàn)證YYYY-MM-DD格式的日期：

#!/usr/bin/perl
use strict;
use warnings;

my $date_pattern = qr{
    ^
    \d{4} # 年份，4位數(shù)字
    -       # 連接符
    \d{2} # 月份，2位數(shù)字
    -       # 連接符
    \d{2} # 日期，2位數(shù)字
    $
};

my $date_string = "2021-08-25";

if ($date_string =~ $date_pattern) {
    print "日期格式正確！\n";
} else {
    print "日期格式錯(cuò)誤！\n";
}

這個(gè)示例中的正則表達(dá)式$date_pattern定義了一個(gè)有效的日期格式，即YYYY-MM-DD。然后，我們使用=~操作符將$date_string與正則表達(dá)式進(jìn)行匹配。如果匹配成功，說明日期格式正確；否則，日期格式錯(cuò)誤。

你可以根據(jù)需要修改正則表達(dá)式以驗(yàn)證其他日期格式。

0 踩