Perl/bash/zsh で今と昨日と一時間前を出すコピペ

Perl/bash/zsh で今と昨日と一時間前を出すコピペ 2016-07-26-2 [Programming][Perl] その場しのぎな作業のための日付計算コピペ。 今と昨日と一時間前を出す。 Perl と bash/zsh。 Perl - 標準モジュールonly use Time::Local; use POSIX qw(strftime); # 今 my @lt = localtime; my $ymdh = strftime "%Y%m%d%H", @lt; my $ymd = strftime "%Y%m%d", @lt; # 1日前 my $ut = timegm(@lt); my @yd_lt = gmtime($ut - 86400); my $yd_ymdh = strftime "%Y%m%d%H", @yd_lt; my $yd_ymd = strftime "%