在 Perl 中将日期 DD/MM/YYYY 转换为 7 位朱利安日期答案

【问题标题】：Convert Date DD/MM/YYYY to 7 Digit Julian Date in Perl在 Perl 中将日期 DD/MM/YYYY 转换为 7 位朱利安日期
【发布时间】：2021-01-21 04:02:24
【问题描述】：

我之前没有使用过朱利安约会，也没有使用它的经验。我不知道 7-Digit 需要如何转换，或者是否有一个库可以做到这一点。

我需要帮助将 2020 年 10 月 10 日转换为 Perl 中的 2459133。

【问题讨论】：

metacpan.org/pod/Date::Julian::Simple
谢谢。它正在工作，它带回 2459132.5
@Pierre：当 Time::Piece 可以完成这项工作时，似乎没有必要安装 CPAN 模块。

标签： perl julian-date

【解决方案1】：

Time::Piece 是标准 Perl 库的一部分。

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use Time::Piece;

# Get a Time::Piece object from your date string
my $d = Time::Piece->strptime('10/10/2020', '%d/%m/%Y');

# Call its julian_day() method.
say $d->julian_day;

【讨论】：