#!/usr/bin/perl use strict; use warnings; use Date::Manip; use Data::Dumper; my $tot_start_date = '2008-06-27 17:37:11 +0000'; my $tot_end_date = '2008-09-29 04:02:18 +0000'; my $beta_start_date = '2008-09-29 04:02:18 +0000'; my $beta_end_date = '2009-01-07 00:00:00 -0800'; #$ENV{TZ}='America/Montreal'; $ENV{TZ}='UTC'; $tot_start_date = UnixDate($tot_start_date,"%Y-%m-%d"); $tot_end_date = UnixDate($tot_end_date,"%Y-%m-%d"); $beta_start_date = UnixDate($beta_start_date,"%Y-%m-%d"); $beta_end_date = UnixDate($beta_end_date,"%Y-%m-%d"); print Dumper $tot_start_date; print Dumper $tot_end_date; print Dumper $beta_start_date; print Dumper $beta_end_date; __END__ output for Montreal: $VAR1 = '2008-06-27'; $VAR1 = '2008-09-28'; $VAR1 = '2008-09-28'; $VAR1 = '2009-01-07'; output for UTC: $VAR1 = '2008-06-27'; $VAR1 = '2008-09-29'; $VAR1 = '2008-09-29'; $VAR1 = '2009-01-07';
In reply to Re: UnixDate - getting a different date
by zwon
in thread UnixDate - getting a different date
by d-evil
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |