How do I get the system clock in Perl format?

I want to get the system clock (time and date) and display it in a Perl readable format. A format like2014-09-12 15:13:56

my %months = qw(Jan Feb Mar Apr May  Jun  Jul
Aug  Sep  Oct  Nov Dec);
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear,   
$daylightSavings) = localtime();
$year = 1900 + $yearOffset;
$now = "$year-$months-$dayOfMonth $hour:$minute:$second";
print $now;


You should see a much more readable date and time when you run the program, for example:

2014--12 16:57:15


how to convert month to number?


source to share

3 answers

Easier to use Perl module (POSIX does not require installation):

use POSIX qw/strftime/;
my $now_string = strftime "%Y-%m-%d %H:%M:%S", localtime;
print $now_string, "\n"; #<-- prints: 2014-09-12 11:09:45 (with my local time)


As for your code, there is a typo:

$now = "$year-$months-$dayOfMonth $hour:$minute:$second";


it should be:

$now = "$year-$month-$dayOfMonth $hour:$minute:$second";


Make sure to write use strict;

also use warnings;

at the top of your script. This prevents such errors.



Usage Time::Piece

(main module with perl v5.9.5


use Time::Piece;
my $dt = localtime;
print $dt->ymd, " ", $dt->hms, "\n";


using DateTime

use DateTime;
my $dt = DateTime->now();
print $dt->ymd, " ", $dt->hms, "\n";




I like to put these date and time tasks in a reusable function. Here's my approach:

use strict;
use warnings;

my $time_stamp = getTodaysDateTime();
print "Program Started: $time_stamp \n";

# do some processing 

$time_stamp = getTodaysDateTime();
print "Program Ended: $time_stamp \n";

# return date in specific format 
# ex: 2014-09-12 14:11:43
sub getTodaysDateTime {
    my ($sec,$min,$hour,$mday,$mon,$year,
        $wday,$yday,$isdst) = localtime(time);
    $year += 1900;
    $mon += 1;
    return sprintf("%d-%02d-%02d %02d:%02d:%02d",




All Articles