Shell Programming and Scripting

Team,

I am working on a shell script and i am extracting a date string in "SunOS server" with below format.

Code:

Mon Jan  21 04:13:48 EST 2021

Can you please assist me the best way to convert the extracted string to epoch time like "date +%s" in Linux.

Thanks in advance

Time::Local is a core module and so should be part of your Perl distribution.

This code makes NO allowance for time zone and so if you need additional timezone handling you'd need to use Date::Manip or a similar module, this is not a core module however.

Code:

 perl -MTime::Local -e '%mon=(Jan=>0,Feb=>1,Mar=>2,Apr=>3,May=>5,Jun=>6,Jul=>7,Aug=>8,Sep=>9,Oct=>10,Nov=>11,Dec=>12);$date=join("\ ",@ARGV);print timelocal($5,$4,$3,$2,$mon{$1},$7-1900),"\n" if($date=~/\w{3}\s+(\S{3})\s+(\d+)\s(\d+):(\d+):(\d+)\s(\S+)\s(\d+)/)'  Mon Jan  21 04:13:48 EST 2021
1611202428

ETA, you could modify the above to capture the timezone string and set ENV{TZ} to this value, then set $ENV{TZ} to the required output time zone (eg. GMT) for output before printing.