perlでタイムスタンプを日時で表す方法を知りたい

chromeの履歴は、クライアントのマシンに保存されています。
これは、sqliteです。sqliteにはデータの型としてはdateの型は
無くて、integerで保存されています。

urlsのテーブルでlast_vist_timeは日時ですが、integerになっています．
例えば、13158682279596425です。

これを、sqliteのselectで
sqlite> select datetime(13158682279596425/1000000 + (strftime('%s','1601-01-01')),'unixepoch','localtime');
上記の様に入力をすると、下記が得られます。
2017-12-25 22:31:19

これを、perlを使ってタイムスタンプの13158682279596425を
2017-12-25 22:31:19の様に変換をしたいのですが。

どの様にすれば、変換が出来るのでしょうか。

すみません。perlのソースを提示願います。
宜しくお願いします。

No.1 回答者： osamuy 回答日時： 2018/02/12 23:15

sqlite> select datetime(13158682279596425/1000000 + (strftime('%s','1601-01-01')),'unixepoch','localtime');

上記の式とおりに計算すればよいので、こんな感じとか。
https://ideone.com/mjkvC9

※-11644473600は、strftime( '%s', '1601-01-01' )の値。

この回答へのお礼

有難う御座います。

その方法は私も回答している内容ですが。
質問を理解してから、回答願います。

どうも、質問の意味を理解していない様です。
回答する以前の問題ですが。

そんなのは、私も知っていると質問にも書いていますが。
それとも、日本語を理解出来ないのでしょうか。

お礼日時：2018/02/14 19:20