Last updated on February 17th, 2022 at 07:11 pm

This is one of the perfect way of displaying respective server date and time using Perl. We are making use of sprintf and localtime. There are multiple methods to get date but here I am following the simplest one available to get current date using perl.

We are also using strftime and extracting the Hour:Minute:Second as shown below.

use POSIX qw(strftime);
($day, $month, $year) = (localtime)[3,4,5];
$my_date = sprintf("%04d-%02d-%02d\n", $year+1900, $month+1, $day);
print "Todays date is $my_date";
my $get_time=strftime "%H:%M:%S", localtime;
print "Time is $get_time\n";

Sample Output

$ ./
Todays date is 2022-02-18
Time is 03:09:21

Related Post

Leave a Reply

Your email address will not be published. Required fields are marked *