perl中的qr是什么意思

perl中的qr//是什么意思

perl
my $email_regex = qr/^[a-zA-Z0-9_.+-]+@[a-zA-Z0-9-]+\.[a-zA-Z0-9-.]+$/;

perl
my $email = 'test@example.com';
if ($email =~ $email_regex) {
    print "Valid email address!\n";
} else {
    print "Invalid email address!\n";
}

perl
# 创建一个匹配日期的正则表达式
my $date_regex = qr/^\d{4}-\d{2}-\d{2}$/;
# 验证日期格式
my $date = '2021-12-31';
if ($date =~ $date_regex) {
    print "Valid date format!\n";
} else {
    print "Invalid date format!\n";
}