perl - 在 Perl 中将日期 DD/MM/YYYY 转换为 7 位儒略日期

Question

我以前没有使用过 Julian date，也没有使用它的经验。我不知道 7 位数字需要如何转换，或者是否有库可以转换。

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

Answer 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;