hi,
I have written the perogram in perl
and i want take previous date in "April 3 2010" in this formate .
plz tell me how can i get this.
#!use/bin/perl
use Date::Format;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
my @weekday = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
my @month = qw(January February March April May June July August September October November December);
$year += 1900;
my $currentdate = "$month[$mon] $mday $year";
printf"$currentdate\n";
# output : April 3 2010
my $date;
foreach my $i (0..1)
{
$date = localtime(time() - 60*60*24*$i);
}
printf "$i day(s) ago: $date\n";
printf"Yesterday was $date\n";
$date --date='1 day ago'
printf"$date";