在perl中比较日期和时间以及相同的时间

use DateTime;

# 创建两个日期时间对象
my $dt1 = DateTime->new(
    year   => 2022,
    month  => 1,
    day    => 1,
    hour   => 12,
    minute => 0,
    second => 0
);

my $dt2 = DateTime->new(
    year   => 2022,
    month  => 1,
    day    => 1,
    hour   => 12,
    minute => 0,
    second => 0
);

# 比较日期时间对象
if ($dt1 == $dt2) {
    print "日期时间相同\n";
} elsif ($dt1 > $dt2) {
    print "dt1 晚于 dt2\n";
} else {
    print "dt1 早于 dt2\n";
}