Startdatum - Enddatum: Alle Tage dazwischen als Liste - #186790 (Allgemeines zu Perl)

rosti

2017-07-06 08:08

User since
2011-03-19
3199 Artikel
BenutzerIn

Mit meinem Modul:

Code (perl): (dl )

use Scaliger ();

my $begin = Scaliger->new( date => '1.1.1899' );
my $end   = Scaliger->new( date => '3.2.1905' );

foreach my $jd( $begin->jd .. $end->jd ){
   my $sca = Scaliger->new( jd => $jd ); # julian days
   print "$sca\n";                       # using to string feature
}

Overload ermöglicht auch inkrementieren like $sca++ also sowas in der Art

Code (perl): (dl )

while( $begin->jd <= $end->jd ){ $begin++ }