localtimeでローカル時刻情報を取得できる。
localtime関数 - 現在の日付・時刻を取得する - Perl入門ゼミ
引数無しの場合、秒、分、時、日、月、年、曜日、をリスト形式で戻り値として返す。
年は1900年からなので、1900を足し、月は1月を0として始まるので、1を足す。
さらに曜日は日曜を0として始まるので、文字列リストを作っておき、添字に$wdayを指定したら、曜日文字列が取得できるようにしておく。
$ vi localtime.pl $ perl localtime.pl 2019/8/5 7:55:56 (Mon) $
このように取得できる。
Sample/perl/localtime/localtime/src/localtime at master · bg1bgst333/Sample · GitHub