mezzo forte の「のほほん」な日記
もう8歳以上になるから人間の歳じゃオバサンだけど。
昨日病院に行って、検査の結果はシロ。まあ内臓が年齢の割にボロボロではあるけど、通院の必要なしと言われたので、スッキリ。
本日、ローンの１つを完済。このペースで行くと２年以内に全ての借金を完済できそうかな…何にせよ、スッキリ。
仕事の関係でいろいろゴタゴタしてたけど、休みの今日、自宅でウダウダしてたら本社の部長から直接連絡があって、これもどうにか最悪の方向には進まないことになったらしく、スッキリ。
昔友人からもらい、一度解いたあと妹にあげたが戻ってきて、姪にあげたら投げられてぐちゃぐちゃになった算数パズル（ツクダ・オリジナルの「算数塾」）が、さっきぐりぐりいじってたら十数分で完成してスッキリ。
スッキリしないのは膀胱だけ。うーん、エコーかけて前立腺も異常ないって言われたしなぁ…
体調がよろしくなかったところで、会社のアレやコレやでゲッソリ。いや、メシはバクバク食ってますが。むしろ食いすぎ。
やっとまとまった休みが来たのでここらでちゃんと始動しないと。でも今日病院行ったら明日またエコーかけることに。ボーコーだかゼンリツセンだかが悪い疑いが…これは描いた絵の呪いか？
ま、そんなわけで今日は夜勤上がりにいろいろ動いたのでさっさと寝よう。実はこないだ某掲示板のスクリプトいじって28日0時に発動する仕掛けを作ったのだが、明日まで見守れそうにない。まあ、しっかり動作確認したからエラーは出ないさ。多分出ないと思う。出ないんじゃないかな。ま、ちと覚悟はしておけ。
それはそうと、ここんとこサボり気味なのに、毎日web拍手ありがとうです。毎日確認してはケツ叩かれてるなと思って、励みにしてるです。
追記：
ま、そんなわけでさっきまで寝ていたのだが、例の掲示板がことごとく文字化けして、修正箇所を探すために必死にソースをにらんでいる夢を見て、飛び起きた。確かめたら大丈夫だったが、住人の反応が大丈夫じゃないかも…
とりあえず復活。今日は夜勤だし。
そんなわけでリハビリにこんなプログラムを打っていた。
単純に今日の「干支」を出すだけのPerlプログラム。
#!/usr/bin/perl
# 干支日算出プログラム by mezzo forte
# http://www.mezzo.jp/
my ($sec,$min,$hour,$day,$mon,$year) = localtime(time);
$year += 1900;
$mon += 1;
$jdy = $year;
$jdm = $mon;
$nengo = "平成";
$gengo = $year - 1988;
if ($jdm <= 2){
$jdy -= 1; $jdm += 12; # 1,2月は前年の13,14月と計算
}
$total_y = int ($jdy * 365.25) + int ($jdy / 400) - int ($jdy / 100);
$total_m = int (30.59 * ($jdm - 2));
$mjd = $total_y + $total_m + $day - 678912; # フリーゲルの公式
@kan = ('甲','乙','丙','丁','戊','己','庚','辛','壬','癸');
@shi = ('寅','卯','辰','巳','午','未','申','酉','戌','亥','子','丑');
$kan_num = $mjd % 10;
$shi_num = $mjd % 12; # 修正ユリウス日より干支の引数を算出
print <<"HTML";
Content-type: text/html; charset=euc-jp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=euc-jp">
<title>干支</title>
</head>
<body>
今日は$nengo$gengo年$mon月$day日、$kan[$kan_num]$shi[$shi_num]です。
</body>
</html>
HTML
exit;
最初から作るのはめどいのでいろいろ検索して探し回ったが、どれも自分の思うような動作をしてくれないので、結局ウィキペディアの「ユリウス通日」とか参照しながら１から作成。
動作はこんな感じ。何に使うかはナイショ。ていうか、ここまで細かく作る必要は全くなかったのだが…
干支の算出方法とか調べるのも合わせて小１時間ででっち上げたプログラムなので、自由に改変も再利用もおｋですが、コメント残したりリンクとか貼ってもらえるとうれしいかも。
昼間に寝過ぎて寝れませんってば…
とかく何か作業したいと思いつつ、養生のため自制しているのでストレス…仕方ないので枕元iBookでひたすらネトしまくっている。
なんか今、台所の方でぬこがトテトテ走ってる音がしたかと思うと、今度はゲ■吐いてる音、というか声がした。
うーむ、トイレのついでに見てくるか…うへえ…
追記：
やっぱりゲ■だったorz 吐いた犯人はどこかへ逃走。まあ、ぬこはゲ■吐くのも仕事のうちなので仕方ない。もし元気だったらデジカメで撮影してモザイク加工してうｐするところだったけど、今日の私はゲ■片付けるだけで精一杯。腰が痛くなったので、湿布しますた…
追々記：
朝になったらテーブルの下にウ▼コまで発見…