Ow,
Although the previous program works. There is a typo, "$d should be
$date". corrected version below:
#!/usr/bin/perl
require "timelocal.pl";
sub rdxtime
{
my ( $date ) = @_ ;
my @t = split(/[-:\s]/,$date);
$t[0] -= 1900; $t[1] -= 1; # check manpage of localtime
@t = reverse(@t);
return timelocal(@t);
}
$d = "2007-08-13 14:39:48";
print rdxtime ($d);
Rdgs
Soong
On Mon, 2007-08-13 at 15:35 +0800, lena wrote:
> Ow,
>
> Welcome to Perl Programming. Below is an attempt:
>
> #!/usr/bin/perl
> require "timelocal.pl";
>
> sub rdxtime
> {
> my ( $date ) = @_ ;
> my @t = split(/[-:\s]/,$d);
> $t[0] -= 1900; $t[1] -= 1; # check manpage of localtime
> @t = reverse(@t);
> return timelocal(@t);
> }
>
> # Your sample input
> $d = "2007-08-13 14:39:48";
> print rdxtime ($d);
>
>
> Regards
> Soong
>
>
> > -------- Original Message --------
> > Subject: [Slugnet] Help with Perl Datetime + Epoch
> > Date: Mon, 13 Aug 2007 14:42:06 +0800
> > From: Ow Mun Heng <[EMAIL PROTECTED]>
> > To: Myoss <[EMAIL PROTECTED]>, "Linux Users' Group (Singapore)"
> > <[email protected]>
> >
> >
> >
> > Been struggling with a new script I'm porting over from bash because
> > perl's DBI is much more elegant than my previous usage of sqsh.
> >
> > I'm having trouble converting from a datetime into a unix epoch
> > timestamp.
> >
> > under bash, this is done.
> >
> > date = YYYY-MM-DD HH:MM:SS
> > epoch_date = date -d "$date" +%s
> >
> > $date
> > Mon Aug 13 14:39:48 MYT 2007
> > $date -d "2007-08-13 14:39:48" +%s
> > 1186987188
> >
> > Under perl, I have no idea how this can be achieved.
> > Neither localtime, timelocal or AFAICT, DateTime can achieve this
> > easily.
> >
> >
> >
> > _______________________________________________
> > Slugnet mailing list
> > [email protected]
> > http://www.lugs.org.sg/mailman/listinfo/slugnet
> >
> >
> >
_______________________________________________
Slugnet mailing list
[email protected]
http://www.lugs.org.sg/mailman/listinfo/slugnet
