2007年08月24日
年齢を求める
プログラムで年齢を求める文。日本の法律では誕生日の前日が終了する瞬間（すなわち誕生日をむかえる午前0時00分の直前）に1歳を加えることになりますが、うるう年など、年によって期間を定めた場合において最後の月に応当する日がないときは、その月の末日をもってその年齢が満了する、ということになるようです
そこで、編み出された文。 (今日の日付-誕生日)/10000の小数点以下切捨て。
Perlなら print int ((20070823 - 19830924)/10000); です。 PHPなら
echo (int)((20070823 - 19850101)/10000);
となります。これはすげえ
2006年10月09日
CGIのお勉強
一応メモ#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "Hello
\n";
$count = 1;
print"$count\n";
$count = 100;
print"$count
\n";
%grades = ('yosida','A','hayasi','B','satou','C')
;
print"$grades{'hayasi'}\n";
$price = 6000;
if($price > 5000) {
print "$price is too expensive"};
ここまでやった。最後は5000より大きければ表示、小さいなら非表示。
円マークが変なスラッシュに変換されてる・・・
2006年03月31日
たった今初めてのPerl文を書いた
たった今、4:34-5:32にかけて、約一時間ほどPerlを書いていた。 難しい処理なのかすらもわからないほど、とにかく初めて書いた。行数は94行だった。