今日が海の日だってことを判定するPerlスクリプト
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__
法律が変わったら速やかに直そう。
トラックバック
この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/19018/48911718
この記事へのトラックバック一覧です: 今日が海の日だってことを判定するPerlスクリプト:
![森田 創: WEB+DB PRESS 総集編 [Vol.1～60]](http://ecx.images-amazon.com/images/I/51aE58LxWlL._SL75_.jpg)
![: 電子ルーペ ViewPe[ビューペ] 3R-MSV35 マイクロスコープ デジタル顕微鏡 高機能 低価格 読書 植物 研究 肌チェック](http://ecx.images-amazon.com/images/I/41erkiQgAsL._SL75_.jpg)
![: Optimus bright [docomo L-07C] 対応 予備バッテリー 1500mAh BL-44JN](http://ecx.images-amazon.com/images/I/41gjqsDjq%2BL._SL75_.jpg)
![: パンツの穴 [DVD]](http://ecx.images-amazon.com/images/I/21R9SEY1HPL._SL75_.jpg)
