martes, 27 de abril de 2010

doy2m.pl

#!/usr/bin/perl -wl
#
# doy2m.pl
# day of year 2 month

use Date::Manip;

my ($y,$m,$d,$h,$mn,$s) = Date_NthDayOfYear(2010,69);
print $m;
Publicar un comentario