Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Formatting Datetime objects nicely

by brian_d_foy (Abbot)
on Nov 28, 2007 at 17:31 UTC ( #653595=note: print w/replies, xml ) Need Help??


in reply to Formatting Datetime objects nicely

I don't know what your other requiremensts are, but here's a DateTime script to do it. Notice that you can plug in your own formatter class. :)

#!/usr/bin/perl use DateTime; use DateTime::Format::Strptime; foreach my $time ( map { time - $_ * 86400 } -3 .. 3 ) { my $dt = DateTime->from_epoch( epoch => $time, formatter => DateTime::Format::Strptime->new( pattern => "%B % +e, %Y" ) ); my $string = do { my $duration = $dt - DateTime->now; my $D = $duration->years + $duration->months; my $d_days = $duration->delta_days; if( $D or $d_days < -1 or $d_days > 1 ) { "$dt" } elsif( $d_days < 0 ) { "Yesterday" } elsif( $d_days > 0 ) { "Tomorrow" } else { "Today" } }; print "$time: ", $dt->ymd, " $string\n"; }

And here's the output:

1196530263: 2007-12-01 December 1, 2007 1196443863: 2007-11-30 November 30, 2007 1196357463: 2007-11-29 Tomorrow 1196271063: 2007-11-28 Today 1196184663: 2007-11-27 Yesterday 1196098263: 2007-11-26 November 26, 2007 1196011863: 2007-11-25 November 25, 2007
--
brian d foy <brian@stonehenge.com>
Subscribe to The Perl Review

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://653595]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (1)
As of 2022-10-01 05:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer my indexes to start at:




    Results (126 votes). Check out past polls.

    Notices?