Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

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]
[Discipulus]: only 2k xp to reach the worst monk ever!

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (9)
As of 2018-03-23 19:30 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (296 votes). Check out past polls.