Hi,
Can you tell me if Date:Calc is the best way for calcuating dates? �I would like to
pass specific dates to analog to do log file analysis on the dates. �
Here are my scripts:
1)Previous Month
#!/usr/bin/perl
use Date::Calc qw( Today Days_in_Month Date_to_Text);
�($year,$month) = Today();
#calculating previous month
�if ($month == 1)
�{
� � � �$previous_mon = "12";
� � � �$year = $year - 1;
� � � �$days=Days_in_Month($year,$previous_mon);
� � � �$begin_date = "01";
� � � �$end_date = $days;
�print "Previous Month's Dates were From $year $previous_mon$begin_date To $year
$previous_mon$end_date.\n"
�}
�else
�{
� � �if ($month > 1)
� � �{
� � � � �$previous_mon = $month - 1;
� � � � �$days=Days_in_Month($year,$previous_mon);
� � � � �$begin_date = "01";
� � � � �$end_date = $days;
�print "Previous Month's Dates were From $year $previous_mon$begin_date To $year
$previous_mon$end_date.\n"
� � �}
� } �
2)Previous Week
#!/usr/bin/perl
use Date::Calc qw( Today Day_of_Week Add_Delta_Days
� � � � � � � � � � Day_of_Week_to_Text Date_to_Text );
�$saturday_dow = 6; # 6 = Saturday
�$sunday_dow = 7; # 7 = Sunday
�@today = Today();
�$current_dow = Day_of_Week(@today);
#calculating saturday's date of previous week
�if ($saturday_dow == $current_dow)
�{
� � �@prev = Add_Delta_Days(@today,-7);
�}
�else
�{
� � �if ($saturday_dow > $current_dow)
� � �{
� � � � �@next = Add_Delta_Days(@today,
� � � � � � � � � �$saturday_dow - $current_dow);
� � � � �@prev = Add_Delta_Days(@next,-7);
� � �}
� � �else
� � �{
� � � � �@prev = Add_Delta_Days(@today,
� � � � � � � � � �$saturday_dow - $current_dow);
� � � � �@next = Add_Delta_Days(@prev,+7);
� � �}
� } �
�$dow = Day_of_Week_to_Text($saturday_dow);
�print "Today is: � � �", ' ' x length($dow),
� � � � � � � � � � � � � � � Date_to_Text(@today), "\n";
@previoussaturday=@prev;
#calculating sunday's date of previous week
#sunday is 7, which is larger than any other weekday 1-7
�if ($sunday_dow == $current_dow)
�{
� � �@prev = Add_Delta_Days(@today,-14);
�}
�else
�{
� � �if ($sunday_dow > $current_dow)
� � �{
� � � � �@next = Add_Delta_Days(@today,
� � � � � � � � � �$sunday_dow - $current_dow);
� � � � �@prev = Add_Delta_Days(@next,-14);
� � �}
�}
�$dow2 = Day_of_Week_to_Text($sunday_dow);
�@previoussunday=@prev;
�print "Previous Weeks Dates were From @previoussunday To @previoussaturday.\n"
__________________________________________________________________
Get your own FREE, personal Netscape Webmail account today at
http://webmail.netscape.com/
