代码之家 › 专栏 › 技术社区 › James Finnegan

DateTime对象只能与另一个DateTime对象进行比较

perl

James Finnegan · 技术社区 · 2 月前

我有一个脚本可以比较2个datetime对象,但错误告诉我:

DateTime对象只能与另一个DateTime对象进行比较

我不知道为什么我会得到这个错误,因为这两个变量都是日期时间对象。这是代码。

use strict;
use warnings;
use DateTime;
use DateTime::Format::Strptime;

my $dt = DateTime->now(time_zone=> 'America/New_York');
my $datetoday = $dt->strftime('%Y%m%d');
my $parseseq = DateTime::Format::Strptime->new(pattern => '%Y%m%d');

my $lastwatermark = 20250201;
$lastwatermark = $parseseq->parse_datetime($lastwatermark)->set_formatter($parseseq);
$lastwatermark->add(days => 2);

print "\nlastwatermark is less than datetoday\n" if ($lastwatermark < $datetoday);

exit;

2 回复 | 直到 2 月前

ikegami Gilles Quénot 2 月前

我不知道为什么我会得到这个错误,因为这两个变量都是日期时间对象

不是这样的。虽然 $lastwatermark 是DateTime对象, $datetoday 是一个字符串。

解决方案:简单使用 $dt (对象)而不是 $datetoday (字符串)。

清洁剂:

my $local_today_dt =
   DateTime->now( time_zone => "local" )
   ->set_time_zone( "floating" )  # See https://stackoverflow.com/q/18489927/589924
   ->truncate( to => "day" );

my $cutoff_dt =
   $local_today_dt->clone
   ->subtract( days => 2 );

my $last_watermark_dt = $parser->parse_datetime( $last_watermark_str );

if ( $last_watermark_dt < $cutoff_dt ) {
   ...
}

ikegami Gilles Quénot 2 月前

Perl 5.36上的完整错误添加了有趣的对象实例细节:

A DateTime object can only be compared to another DateTime object ( 日期时间=哈希(0x55b56bc53eb0) , 20250221). at l.pl line 16

我可以通过这个小编辑成功运行你的脚本:

[...]

# need this to transform object to date string
$lastwatermark = $lastwatermark->strftime('%Y%m%d');

print "\nlastwatermark is less than datetoday\n" if ($lastwatermark lt $datetoday);

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

3 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

3 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

3 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

3 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

3 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前