Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl 
    
    use v5.030;
    ...
    my $seconds_dur = $later->subtract_datetime_absolute($now);
    $logger->info("Program duration is $seconds_dur seconds");
    __END__
    
  2. or download this
    2021/10/12 17:44:15 INFO ./2.vj.pl executed at 2021-10-12T23:44:15 
    2021/10/12 17:44:15 INFO -1952337.6024127 -1378241.1266014 -714314.659
    +416676 -4036.13566160202 592540.73432833 
    2021/10/12 17:44:15 INFO integer bottom is -1952337 
    ...
    2021/10/12 17:45:02 INFO venus ra is 239.630025731277 
    2021/10/12 17:45:02 INFO Julian equality is 2459497.35122685 
    2021/10/12 17:45:02 INFO Program duration is DateTime::Duration=HASH(0
    +x5642bb935d40) seconds