perl - perl の 18 桁のジュリアン タイムスタンプ

Question

perl スクリプトで 18 桁のジュリアン タイムスタンプを取得する必要があります。誰でもこれで私を助けることができますか？ただし、これを実現するためのサブルーチンを作成しましたが、常に 6 つのゼロで終わる数値が得られるため、見栄えがよくありません。適切な 18 桁の J タイムスタンプを取得するのを手伝ってください。

sub GetJulianTimestamp()
{
  my $t = `perl -e 'print time, "\n"'`;
  return (($t * 1000000 ) + 210866803200000000);
}

Answer 1

コメントに基づいて、UNIXエポックからのマイクロ秒数を取得する方法を尋ねているようです。

use Time::HiRes qw( );

my $microsec_time = int( Time::HiRes::time() * 1_000_000 );
return 210866803200000000 + $microsec_time;