Thanks for your help.syy=2008 newstart=272 perl -e 'use Time::Local; $yr = $ARGV[0] - 1900; $yday = $ARGV[1]; $my +time = timelocal(1,0,0,1,1,$yr); $mytime += ( 86400 * $yday ); ($sec, +$min,$hour,$day,$mon,$yr,$wday,$yday,$whocares) = localtime($mytime); $yr += 1900; printf("%d/%02d/%02d%s", $yr, $mon, $day, " " );use POSIX + qw(strftime);$fmt = "%A"; # %a = abbreviated weekday %u = weekday nu +mber; $weekday = strftime($fmt, 0, 0, 0, $day , $mon - 1, $yr - 1900, -1, -1 +, -1);printf("%s%s%s", "$weekday"," ",$ARG[2]);' $syy $newstart >> pp +pp newstart=273 perl -e 'use Time::Local; $yr = $ARGV[0] - 1900; $yday = $ARGV[1]; $my +time = timelocal(1,0,0,1,1,$yr); $mytime += ( 86400 * $yday ); ($sec, +$min,$hour,$day,$mon,$yr,$wday,$yday,$whocares) = localtime($mytime); $yr += 1900; printf("%d/%02d/%02d%s", $yr, $mon, $day, " " );use POSIX + qw(strftime);$fmt = "%A"; # %a = abbreviated weekday %u = weekday nu +mber; $weekday = strftime($fmt, 0, 0, 0, $day , $mon - 1, $yr - 1900, -1, -1 +, -1);printf("%s%s%s", "$weekday"," ",$ARG[2]);' $syy $newstart >> pp +pp newstart=274 perl -e 'use Time::Local; $yr = $ARGV[0] - 1900; $yday = $ARGV[1]; $my +time = timelocal(1,0,0,1,1,$yr); $mytime += ( 86400 * $yday ); ($sec, +$min,$hour,$day,$mon,$yr,$wday,$yday,$whocares) = localtime($mytime); $yr += 1900; printf("%d/%02d/%02d%s", $yr, $mon, $day, " " );use POSIX + qw(strftime);$fmt = "%A"; # %a = abbreviated weekday %u = weekday nu +mber; $weekday = strftime($fmt, 0, 0, 0, $day , $mon - 1, $yr - 1900, -1, -1 +, -1);printf("%s%s%s", "$weekday"," ",$ARG[2]);' $syy $newstart >> pp +pp the contents of pppp: 2008/09/30 Tuesday 2008/09/31 Wednesday 2008/10/01 Wednesday
In reply to Number of day in the year to proper date by gio001
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |