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

Question

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

我需要帮助将 2020 年 10 月 10 日转换为 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;

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

Convert Date DD/MM/YYYY to 7 Digit Julian Date in Perl

perl

julian-date