On Sun, 18 Jan 2004, danield wrote: > > I am looking for an advice or suggestion in this task: > > I do have a Perl script which contains 2 variables ($low, $high). The > value assigned to them depends on which day am I running that Perl > script. Moreover, the variable $low has always be the first day of the > previous month and similarly the variable $high the last day of the > previous month. > > For instance: > If I run this script today (2004, January 18), the low should be (18 > days of current month + total days of previous month (2003, December > (31)))= 49. The $high > would get (how many days ago was the last day of the previous month) = > 18. > > $low = 49 > $high = 18 > > I am doing this calculations manually before I run the script. I would > like to have this value determined and substituted inside the script. In > addition the script should know how much day each month has and also > correctly recognize when the month February has 28 and when 29 days and > so on...
If you have Date::Calc installed, run this and see if it gives you any clues #!/usr/bin/perl -w use Date::Calc qw(Days_in_Month Add_Delta_YM); @t = localtime(time); $mon = $t[4]+1; $yr = $t[5]+1900; $day=$t[3]; $days_in_month = Days_in_Month($yr,$mon); print "$days_in_month \t $yr \t $mon\n"; ($yr,$mon,$day) = Add_Delta_YM($yr,$mon,$day,0,-1); $days_in_month = Days_in_Month($yr,$mon); print "$days_in_month \t $yr \t $mon\n"; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
