Calendar::Simpleと Text::ASCIITableを使って書いてみた。。 プログラム #!/usr/bin/env perl use strict; use warnings; use Calendar::Simple; use Text::ASCIITable; my ($this_mon, $this_year) = (localtime)[4,5]; my $month = shift || ($this_mon + 1); my $year = shift || ($this_year + 1900); my @month = calendar($month, $year); my $t = Text::ASCIITable->new({ headingText => "$year/$month", }); $t->setCols(qw/Sun Mon Tue W
■ カレンダーを作ろう 基礎編(曜日の求め方):曜日 ~Zeller(ツェラー)の公式~ 今回はカレンダーを作ります。 カレンダーといっても、「万年カレンダー」で、ずっと使えるものです。 「ツェラーの公式」を応用させます。 <サンプル> スクリプトが少々長くなりますので、こちらをご覧ください。 <解説> ・月の末日の指定 配列変数に代入します。 ・デコード 年月を受け取るときに使います。 後ほど出ますが、「先月」「来月」のリンクから受け取るものです。 ・現在の日時を取得 ~ 指定されていた日時を変数に代入 日時を取得した後に、表示する年月が別に指定されていれば、 年($year)と月($month)の数字を置き換えます。 ・うるう年の判定 「4の倍数ならうるう年、しかし100の倍数ならうるう年でない、また400の倍数ならうるう年」 という一般的なルールを使います。 もし、うるう年であれば、
Calendar::Japanese::Holiday Calendar::Japanese::Holidayは祝日の一覧取得、祝日判定、祝日名の取得ができるPerl モジュールです。 CPANにアップ済。 概要 このモジュールで以下のことを行えます。 指定年月の祝日一覧の取得 指定日の祝日判定 祝日判定で祝日だった場合は、祝日名を返すので祝日名の取得もできます。 使用例 use Calendar::Japanese::Holiday; # 祝日一覧の取得 $holidays = getHolidays(2008, 5); $holidays = getHolidays(2008, 5, 1); # 祝日かどうかの判定 $name = isHoliday(2007, 5, 5); 関数 getHolidays($year, $month [, $furikae]) 指定した年月($year
NAME Calendar::Japanese::Holiday - Japanese holidays in calender SYNOPSIS use Calendar::Japanese::Holiday; # Getting a list of holidays $holidays = getHolidays(2008, 5); $holidays = getHolidays(2008, 5, 1); # Examining whether it is holiday or not. $name = isHoliday(2007, 5, 5); DESCRIPTION This module treats holidays information in Japanese calendar. The list of holidays can be acquired, and you
更新 振替休日も取れるのでこっちのがいいですね 祝日をWebAPIから取得するシェルスクリプトをワンライナーで 皆さんはお盆に入りましたか? 自分は今日からお休みです。 月曜からまた仕事だと鬱で吊りたくなりますね。 次の祝日を知っておくと少しは頑張れる気がします。 Perl 祝日名の取得 - とみぞーノート use strict; use warnings; use Calendar::Japanese::Holiday; use utf8; use open qw(:encoding(utf8) :std); my $year = 2015; foreach my $month (1..12) { my $href = getHolidays($year, $month, 1); foreach my $day (sort keys %$href) { printf("%02d/%02d
FreeBSD・OpenBSDと他で ps -e の動作が違ってハマってしまいましたが、Proclet という簡単なsupervisor・プロセス管理モジュールをCPANにあげました。 Proclet - minimalistic Supervisor https://metacpan.org/module/Proclet GrowthForecastでは、growthforecast.pl というスクリプトを実行するだけでWebサーバと2つのWorkerが起動します。CloudForecastのように個別に実行が必要になると使うのも面倒ですよね。 growthforecast.pl を実行後、pstreeで見るとこうなってます。growthforecast.plがsupervisor的に動作し、終了したプロセスがあれば自動で起動し直します。 -+= 70330 kazeburo perl
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く