Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

say "FINISHED";
my $pause_here = <STDIN>;
  2. or download this
    #!/usr/bin/perl

...

say "FINISHED";
my $pause_here = <STDIN>;
  3. or download this
    #!/usr/bin/perl

...

say "FINISHED";
my $pause_here = <STDIN>;
  4. or download this
    use utf8;
use 5.022;
...
    my $JDN2 = $day2 + floor((153*$m2+2)/5) + 365*$y2 + floor($y2/4) -
+ floor($y2/100) + floor($y2/400) - 32045;
    return $JDN1-$JDN2;
}