昨日の続きついでにフィルタの更新日時も自動更新させる

Checksum 計算する前に入れておくだけ

use Time::Piece qw(localtime);

my $time    = localtime;
my $strTime = $time->strftime("%d %b %Y %R JST");

# Replace already existing "! Last modified: %e %b %Y %R JST"
$data =~ s/^.*!\s*Last\s+modified[\s\-:]+([\w\+\/=]+).*$/! Last modified: $strTime/gmi;

• • 丸く囲ったところが固定キーワード部分
  • 下線の部分が現在時間に更新される

反省点

• なぜか Cygwin でタイムゾーンうまく取得できなかったので JST で固定...orz