指定した日時から日本語の曜日名をPerlモジュールのTime::Pieceで生成
PerlモジュールのTime::Pieceを使用して、指定した日時から日本語の曜日名を出力しました。)
#!/opt/local/bin/perl
use strict;
use warnings;
use utf8;
use Time::Piece;
print "Content-type: text/html; charset=utf-8\n\n";
print Time::Piece::localtime(Time::Piece->strptime(20190201164104, "%Y%m%d%H%M%S"))->wdayname(qw/日 月 火 水 木 金 土/)."曜日";
exit;水曜日サンプルコードと出力結果です。指定した日時から日本語の曜日名を出力しました。
