在Perl中，你可以使用正則表達式來驗證日期格式。以下是一個示例，用于驗證YYYY-MM-DD格式的日期：
#!/usr/bin/perl
use strict;
use warnings;
my $date_pattern = qr{
^
\d{4} # 年份，4位數字
- # 連接符
\d{2} # 月份，2位數字
- # 連接符
\d{2} # 日期，2位數字
$
};
my $date_string = "2021-08-25";
if ($date_string =~ $date_pattern) {
print "日期格式正確！\n";
} else {
print "日期格式錯誤！\n";
}
這個示例中的正則表達式$date_pattern定義了一個有效的日期格式，即YYYY-MM-DD。然后，我們使用=~操作符將$date_string與正則表達式進行匹配。如果匹配成功，說明日期格式正確；否則，日期格式錯誤。
你可以根據需要修改正則表達式以驗證其他日期格式。
