前日日付perl

前日日付取得(Perl編)

システム構築、管理、運用に携わっている人なら分かると思いますが
ログファイルは凄く重要です。毎日大量に吐き出されるログファイルを管理するに
当たってはやはり一番簡単なものとしてファイル名に日付を付与することになるかと思う。

当日の日付に関しては「date +%Y%m%d」や「date "+%Y%m%d %H:%M:%S"」で簡単に
求めることが可能。しかしながらシステム運用現場で実際はというと、夜間処理として
日付が変わったのを契機に処理が発生すことが多い。

そこで必要なのが前日日付の取得です。色々は方法があるが今回は大抵のUNIXシステムで
使用可能な「Perl」を使った簡単なコードをメモしておくことにします。

prevdate(){
perl -e '
($sec,$min,$hour,$mday,$mon,$year) = localtime( time()-86400 ) ;
printf("%04d%02d%02d", $year+1900, $mon+1, $mday ) ;
'
}
yymmdd=`prevdate`