perl get date code example
Example 1: perl get date
# For Perl only
# syntax
use POSIX;
use Time::Piece;
my $CurTime = localtime(); # <-- Format: Day Month Date HH:MM:SS (ei: Thu May 7 08:45:52 2020)
my $FormattedTime = $local_time->strftime('');
# example
use POSIX;
use Time::Piece;
my $CurTime = localtime();
print "[CurTime:$CurTime]\n";
# Note: for formatting, search Perl DateTime Formatting
Example 2: perl set date
# For Perl only
# syntax
use Time::Piece;
Time::Piece->strptime('', '');
# examples (for: 25 May 1994 13:31:18)
# OPTION A
use Time::Piece;
my $date_1 = Time::Piece->strptime('1994-05-25 13:31:18', '%Y-%m-%d %X');
print $date_1 . "\n";
#OPTION B
use Time::Piece;
my $date_2 = Time::Piece->strptime('13:31:18 25/05/1994', '%X %d/%m/%Y');
print $date_2 . "<---\n";
# For more details on formatting symbols (%...), please scroll to the
# bottom of "https://www.tutorialspoint.com/perl/perl_date_time.htm"