Home > Archives > 2008年11月 5日 Archive
2008年11月 5日 Archive
年齢計算プログラム(Perl編) Ver 0.3
- 2008年11月 5日 00:02
- プログラム制作
前バージョンのver 0.2を公開してからそんなに時間が経ってないのにもう次かい、と突っ込みたくなるかもしれませんが、最近講義やTAでプログラミングしてないせいか、なんかプログラミングしたい衝動に駆られ、バージョンアップしてみました。
*ver 0.2からの変更点
- 生年月日を8桁の引数として置き換え、表示できるようにした。(複数対応)
- サーバタイムの補正に対応。(サーバタイムとズレの時間さえ分かっていれば、国を問わずに補正可能)
*サンプル
- プロフィールページの家族の年齢表示は引数を使っています。
*ダウンロード
age030.txt(右クリックからファイル名を指定して保存してください。)
*使い方
必要な箇所ににSSIとして書き込むのは変わっていません。(ver 0.1参照)
現バージョンで対応した生年月日を8桁の引数として表示する場合。
生年月日が1981年12月6日の場合、8桁の数字は「19811206」となります。月や日が1桁の場合は、1桁目に「0」を付け、2桁としてください。
その数字を設置したCGIの最後に「ファイル名.cgi?19811206」という形式にします。
*次バージョンでの課題
ここまではエラー処理が結構甘いので、エラー処理をしっかりとしたいと思います。
現段階では、現在日時より先、つまり未来の生年月日も指定できますし、月日として有り得ない日、つまり13月40日なども設定できてしまいます。その辺のエラー処理も加えたいなぁ、と。
まぁ、正しい使い方をすれば問題のない事ですけど。
他としては、他のサイトから参照できないようにする排他制御や、SSIを利用しなくても表示できる用に画像にも対応したいと考えています。画像対応は大分後の話になると思いますが...。
- Comments: 0
- TrackBacks: 0