perl - How to make Time::Piece respect DST when converting localtime to UTC? -

-

i want convert timestamp localtime gmt. have legacy code "manually" time::local::timelocal() , gmtime. works, don't , wanted use time::piece instead. used this answer (albeit converting other way round, able replace + - :-)).

this code:

#!/usr/bin/env perl  use strict; use warnings; use time::local; use time::piece; use posix qw(strftime);  sub local_to_utc_timelocal {     $local_ts = shift;     ( $year, $mon, $mday, $hour, $min, $sec )          = ( $local_ts =~ /(\d\d)-(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)/ );     $local_secs = time::local::timelocal( $sec, $min, $hour, $mday, $mon - 1, $year );     return posix::strftime( '%y-%m-%d %h:%m:%s', gmtime($local_secs) ); }  sub local_to_utc_timepiece {     $local_ts = shift;     $local_tp = time::piece->strptime( $local_ts, '%y-%m-%d %h:%m:%s' );     $utc_tp   = $local_tp - localtime->tzoffset(); # ***     return $utc_tp->strftime('%y-%m-%d %h:%m:%s'); }  $local;  # dst in effect (april 19 2016): $local = '16-04-19 14:30:00'; print "dst in effect:\n"; printf("utc(%s) = %s (using timelocal)\n", $local, local_to_utc_timelocal($local)); printf("utc(%s) = %s (using timepiece)\n\n", $local, local_to_utc_timepiece($local));  # dst not in effect (feb 19 2016): $local = '16-02-19 14:30:00'; print "dst not in effect:\n"; printf("utc(%s) = %s (using timelocal)\n", $local, local_to_utc_timelocal($local)); printf("utc(%s) = %s (using timepiece)\n", $local, local_to_utc_timepiece($local));

unfortunately time::piece code doesn't seem work wrt dst. i'm living in germany, (spring/summer, dst in effect) utc+2. "april 19 2016" above code gives:

dst in effect: utc(16-04-19 14:30:00) = 16-04-19 12:30:00 (using timelocal) utc(16-04-19 14:30:00) = 16-04-19 12:30:00 (using timepiece)

which correct. "feb 19 2016" (when utc+1) same code gives:

dst not in effect: utc(16-02-19 14:30:00) = 16-02-19 13:30:00 (using timelocal) utc(16-02-19 14:30:00) = 16-02-19 12:30:00 (using timepiece)

that is: gmtime(time::local::timelocal($timestamp)) gives correct 1 hour offset while time::piece still gives 2 hours offset.

is bug in time::piece or use wrongly?

i know there plenty of ways convert localtime utc i'd use time::piece because of simplicity. plus cannot use datetime because involve deploying on dozen of production machines.

problem 1

localtime returns now, localtime->tzoffset() returns offset now. change

my $utc_tp = $local_tp - localtime->tzoffset();

to

my $utc_tp = $local_tp - $local_tp->tzoffset();

however, leaves $utc_tp flagged localtime, want:

my $utc_tp = gmtime( $local_tp->epoch );

problem 2

despite name, $local_tp not local time, $local_tp->tzoffset() zero. change

time::piece->strptime( $local_ts, '%y-%m-%d %h:%m:%s' )

to

localtime->strptime( $local_ts, '%y-%m-%d %h:%m:%s' );

Comments

Post a Comment

Popular posts from this blog

compilation - PHP install fails on Ubuntu 14 (make: *** [sapi/cli/php] Error 1) PHP 5.6.20 -

-
i using following configuration: ./configure --with-libdir=lib --with-config-file-path=/etc/ --with-config-file-scan-dir=/etc/php5/mods-available --with-pear --enable-cli --enable-intl --with-icu-dir=/opt/icu4c --enable-bcmath --disable-cgi --enable-fpm --with-zlib --with-openssl --with-kerberos --with-bz2 --with-curl --enable-ftp --enable-zip --enable-exif --with-gd --with-jpeg-dir=/usr/lib64 --with-freetype-dir=/usr/lib64 --enable-gd-native-ttf --with-gettext --with-gmp --with-mhash --with-iconv --with-imap --with-mysql --with-imap-ssl --enable-sockets --enable-soap --with-xmlrpc --with-mcrypt --enable-mbstring --enable-embedded-mysqli --with-mysqli=mysqlnd --with-mysql-sock --with-sqlite3 --with-pdo-mysql --with-pdo-mysql=mysqlnd --with-pdo-sqlite --enable-phar --enable-pcntl and make fails after sometime giving following error: collect2: error: ld returned 1 exit status make: *** [sapi/cli/php] error 1 i searched , docs tell using make clean, did not , ‘-lresolve’ in ma...
Read more

java - nested exception is org.hibernate.exception.SQLGrammarException: could not extract ResultSet Hibernate+SpringMVC -

-
i trying fetch records database , having above error this classs appropriate getters , setters public class user { private int id; private string username; private string password; private string email; i have create database , inserted data below configuration <bean id="datasource" class="org.apache.commons.dbcp2.basicdatasource" destroy-method="close"> <property name="driverclassname" value="com.mysql.jdbc.driver"/> <property name="url" value="jdbc:mysql://localhost:3306/usersdb"/> <property name="username" value="root"/> <property name="password" value=""/> </bean> this complete stacktrace severe: servlet.service() servlet [appservlet] in context path [/spring] threw exception [request processing failed; nested exception org.hibernate.exception.sqlgrammarexception: not ...
Read more

sql - Postgresql tables exists, but getting "relation does not exist" when querying -

-
Image
i have postgresql db number of tables. if query: select column_name information_schema.columns table_name="my_table"; i list of columns returned properly. however, when query: select * "my_table"; i error: (programmingerror) relation "my_table" not exist 'select *\n "my_table"\n' {} any thoughts on why can columns, can't query table? goal able query table. you have include schema if isnt public one select * <schema>."my_table" or can change default schema show search_path; set search_path my_schema; check table schema here select * information_schema.columns for example if table on default schema public both works ok select * parroquias_region select * public.parroquias_region but sectors need specify schema select * map_update.sectores_point
Read more