I'm lazy when it comes to date conversion; I let Perl's Date::Manip and
Date::Calc handle it.


#!/usr/local/bin/perl -w

use strict;

use Date::Manip qw(ParseDate UnixDate);
use Date::Calc qw(:all);

my $string_date = "today";
my $date = ParseDate($string_date);

if(!$date) {
   warn "Bad date string: $_\n";
}
else {

   my $unixdate = UnixDate($date,"%s");
   print "The current epoch time is $unixdate\n";

   my ($year,$month,$day) = UnixDate($date,"%Y","%m","%d");
   print "Today's date is $month/$day/$year\n";

   my ($y,$m,$d) = Nth_Weekday_of_Month_Year($year,$month,7,1);
   print "The first Sunday of this month was on $m/$d/$y\n";
}


Yep, you have to go get the modules.

http://search.cpan.org/search?dist=DateManip

http://search.cpan.org/search?dist=Date-Calc

-----Original Message-----
From: Zufall, Ken <KZufall AT officemax DOT com>
To: 'Tim Allen' <tallen201 AT hotmail DOT com>; veritas-bu AT 
mailman.eng.auburn DOT edu
<veritas-bu AT mailman.eng.auburn DOT edu>
Date: Wednesday, March 07, 2001 4:44 PM
Subject: RE: [Veritas-bu] converting unix time


>/usr/openv/netbackup/bin/bpdbm -ctime unix_time
>
>This is the command to use, am unaware of any scripts that might do the
same
>thing.
>
>Now, here's a question for everyone: How do you convert date/time format to
>unix time?
>
>Ken Zufall
>Technical Analyst
>Phone: 216.471.3613
>Pager: 440.303.1656
>Fax: 216.491.4051
>
>"It's not the most intellectual job, but I do have to know all the
letters."
>Vanna White