今日が海の日だってことを判定するPerlスクリプト

Tweet

Twitterで今日は何の日？botを作るときに、日本の休日の法律でありがちな、第3月曜日、とかを判定しないと出来ませんので、こう書いてみたよ。

#!/usr/bin/perl
 
use strict;
use warnigas;
use DateTime;
my $dt = DateTime->now( time_zone => 'local');
my $syu  = int( ( $dt->day - 1 ) / 7 ) + 1;
if (
     ( $dt->month == 7 )  # 7月
  && ( $syu       == 3 )  # 第3
  && ( $dt->wday  == 1 )  # 月曜日
  )
{
  print "凛子：今日は、海の日じゃん。ま、祝日ということに、意味があるわけで。\n";
}
 
exit;
 
__END__

法律が変わったら速やかに直そう。

2010.07.19 00:39 投稿　大野 義貴 [Perl] | 固定リンク |