Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: Epoch time conversion in CSV

by blue_cowdawg (Monsignor)
on Sep 25, 2012 at 15:44 UTC ( #995579=note: print w/replies, xml ) Need Help??

in reply to Epoch time conversion in CSV

      I am generating a CSV file with the first 2 columns in the Epoch time format.

Here is some sample code:

#!/usr/bin/perl -w use strict; use Data::Dumper; my $line=<DATA>; chomp $line; my @f=split(',',$line); my $dt1=shift @f; my $dt2=shift @f; printf "%s,%s,%s\n",scalar localtime($dt1),scalar localtime($dt2),join +(",",@f); exit(0); __END__ 1345752662, 1345752673, CLOSED, CRITICAL, Other fields etc
The working part of this really is the scalar localtime part. There are other ways of doing this, but this is a time honored method that works. Brute force, but it works.

Here is what perldoc -f localtime says that is pertinate to your situation:

If EXPR is omitted, "localtime()" uses the current time + (as returned by time(3)). In scalar context, "localtime()" returns the ctime(3) v +alue: $now_string = localtime; # e.g., "Thu Oct 13 04:54 +:34 1994" This scalar value is not locale-dependent but is a Perl builtin. For GMT instead of local time use the "gmtime" builtin.
Hope this is of some help.

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://995579]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (10)
As of 2018-06-25 13:03 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.