Time::Pieceを使って月末判定
日付が月末かどうか判定する処理、今までもっと無駄に書いてた気がするけど、こんな感じで良かった。
use Time::Piece; my $now = localtime; if( $now->mday eq $now->month_last_day ) { print "月末!", "\n"; }
日付が月末かどうか判定する処理、今までもっと無駄に書いてた気がするけど、こんな感じで良かった。
use Time::Piece; my $now = localtime; if( $now->mday eq $now->month_last_day ) { print "月末!", "\n"; }