「Perl大技林」一覧に戻る GIFなのかJPEGかなど、画像がどのような保存形式か判定したい。基本的に拡張子はあてにならない場合があるため、実際にファイルの内容を解析した方がよい(しなければならない)状況などに役立つ。

「Perl大技林」一覧に戻る 1月を日本では睦月（むつき）とも呼ぶ。このような旧暦の名称を取得するにはどうすれば良いだろう？ 睦月から順番に配列に入れ、localtimeの4番目の戻り値をそのまま添え字として使用するだけで良い。忘れがちだが、localtimeが返…

「Perl大技林」一覧に戻る 指定した年(西暦年)が、干支(子・丑・寅・卯・辰・巳・午・未・申・酉・戌・亥)で何年かをプログラムで計算し求めたい。 ロジックは非常にシンプルである。 西暦を12で剰余算すると0の時に申(サル)が来る。ということで、申・酉・…

「Perl大技林」一覧に戻る 約4年に一度、2月29日が発生する閏年(うるうどし)かどうかを判定するには、次のロジックを素直に実装すれば良い。 4で割り切れる年は閏年 ただし、100で割り切れる年は閏年ではない しかし、400で割り切れる年は閏年である isLeap…

「Perl大技林」一覧に戻る ファイル容量(サイズ)や更新日など、ファイルの詳しい情報を取得したい。これはPerlが標準で用意している「stat」関数を使用すれば一発である。