Beefy Boxes and Bandwidth Generously Provided by pair Networks RobOMonk
Problems? Is your data what you think it is?
 
PerlMonks  

Get time without seconds

by Anonymous Monk
on Mar 25, 2013 at 00:03 UTC ( #1025198=perlquestion: print w/ replies, xml ) Need Help??
Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks!
I need to get the time without the seconds, does anyone here knows how I could do that using "Date::Format". Here is a code I am trying:
#!/usr/bin/perl use Time::Zone; use Date::Format; my ($today_date, $today_time) = get_timezone(); sub get_timezone { $ENV{'TZ'} = 'America/New_York'; $today_date = time2str( "%Y/%m/%d", time); # Need the time without the seconds in %r $today_time = time2str( "%r", time); return $today_date, $today_time; } print "\n Date: $today_date - $today_time \n";
Thanks!

Comment on Get time without seconds
Download Code
Re: Get time without seconds
by LanX (Abbot) on Mar 25, 2013 at 00:23 UTC
    Whats wrong with replacing %r with the appropriate placeholders for hour, minute and AM/PM but excluding seconds?

    from Date::Format

    ... %H hour, 24 hour clock, leading 0's) %I hour, 12 hour clock, leading 0's) %j day of the year %k hour %l hour, 12 hour clock %L month number, starting with 1 %m month number, starting with 01 %M minute, leading 0's %n NEWLINE %o ornate day of month -- "1st", "2nd", "25th", etc. %p AM or PM ...

    Cheers Rolf

    ( addicted to the Perl Programming Language)

      What about this:
      $today_time = time2str( "%I:%M %p", time);
Re: Get time without seconds
by igelkott (Curate) on Mar 25, 2013 at 00:25 UTC

    Switch %r to %R

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1025198]
Approved by igelkott
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2014-04-19 00:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (474 votes), past polls