かずほのすくらっぷぶっく

ことよろ。

2004/01/09 15:51

最終日だというのに結局他にやることを思いつけなかったので、チャレンジ。

ほぼ３人でクリアしたせいで、５９分なんてなタイムになってたＣ７をせめて４０分台に縮めたい＆ランクＡの回収で、まずＣ７。

その後、ランクＢのごほうび回収にさくっと簡単なステージをやろうぜ、なんて話をしてたところ、ネカマの人が部屋一覧を見て「ｃ９部屋一人で待ってるのがあるよ」と一言。見ると、

「Ｃ９？」

「やろうか」

なんてなことで、その一人部屋に３人で乱入。

さて、チャレンジをはじめる前にギルドカウンターで「レスタが出ますように」と祈りをささげた結果、 レスタ４が３つもでました。一人はフォースですでにレスタもってて、 もう一人は HUmar 故にレスタ４では必要精神が足りない。私はロボレンジャーなので使えるわけもなく、残る HUnewearl のおねーさんがフォースからマグを借りて覚えただけで終了。ああ、残りの二つがもったいない・・・。

あれは、DC のオリジナルロボ子でやった時、ボス戦でマグをハンターに取られてレールガンがもてなくて悔しい思いをした。３０日のＣ９でも珍しくマグを育てたのにそれでもヒットが足りなくてレールガンを装備できなくて（しかも終わったあとに、アサルトを持ちたかった HUcast がマークスマン／アームをがめてたのが発覚）、かなり悔しかったので、今回は初手に「私はレールガンを持ちたい」と宣言。したら、レールガンが４本ほど出現。ヒットマテリアルも出たので、中盤でレールガンがもてるようになった。しかも最後に拾ったレールガンは D40H30。これはもう死ねない。こんなのもって失敗したら悔やんでも悔やみきれない。

と、意気込むと死ぬんだよなー。例のごとく、アイテムを出口に置いている間にクローにかじられ、直後にソーサラーのラフォイエくらって死亡。ベルラパンチで死亡。ＨＰが心もとないのでフォースにレスタかけてもらおうとフォースを探してる間に殴られて死亡。ブリンガーライフルの直撃で死亡。人様からのもらい物で生き返っているありさま。

それでもなんとかボスにたどり着いて、「よーし、レールガンでばしばし撃っちゃうぞー」と意気込めば、多段ラバータを２回も食らって人形を消費。

鬱になりつつ周囲を見れば、マグ育てに成功したフォースが無敵を発動して無傷のまま走り回っている。さらに鬱。 なんかこのキャラ現が悪い、などと自分のへたれっぷりを棚に上げつつ、ボス戦終了。

一緒にやった HUnewearl のお姉さんにさようならした後、 最後の記念写真を撮ろうと、ノーマル部屋を作って３人でこもり、 時間が来るまで倉庫の前でだべっていたら、知らない人乱入。

鍵なしで作ってたけど、まさか１−３−８なんかに人がくるとは思わなかったよ、ママン。

挨拶だけして出てくのかと思ったら、そうでもないようで、 たぶん最期の時間を誰かと一緒にすごしたかったのだろう。 さすがに身内だけのときのような調子で会話をするわけにもいかず、無難にいつ出るんだかわからない PCPSO Ep2 の話しなぞをして時間をつぶす。

１０分前になったら、画面右下に「１０分後にサーバーメンテナンスを行います」とのメッセージが。以降１分ごとにログアウトを促すメッセージが表示されて、最後はそっけなく「サーバーから切断されました」で終了。

さようなら、ＰＣＰＳＯ。なんだかんだいって一番快適だったよ。

2004/01/09 00:35

実家のママンは去年の７月に乳がんの手術をやった。 そして、手術の後も抗がん剤の治療をやってるために、 目下ママンの頭はこっぱげ状態なのでありました。

しかし、正月私が実家に帰ったところ、 ママンはこっぱげ状態で会うとぼちゃーんに泣かれそうだから、 と、こっぱげの上に毛糸の帽子をかぶってまちかまえておりました。

当初はママンの努力の甲斐なく「家の中でも帽子をかぶっている変なおばさん」がいる、とぼちゃーんはびっくりして泣いたわけですが、 １日たてばなんとなく慣れるもので「おばーちゃんは帽子をかぶってる」 という認識の出来たぼちゃーんは前に来た時と変わりなくあそびはじめたわけであります。

しかし、冬とはいえ暖房の効いた部屋の中で素肌に毛糸の帽子はむれるらしく、「汗かいちゃったわ」などといいながらママンは帽子を脱いで汗を拭きはじめ、ふと気が付くと、

ぼちゃーんがママンの頭を見つめて固まっておりました。

次に来る時までに、ぼちゃーんがこのショックを忘れてるといいですわね、ママン・・・。

2004/01/20 16:21

実家でテレビを見ていたとき、学習障害を持つ子どもの学習について、というテーマの番組をやっていた。

画面では、文字がうまくかけない子どもが一生懸命漢字を練習している場面が映っていて、それを見ていたママンが「そういえば、あんたも漢字練習が苦手だったわねえ」と私に言った。

「同じ字を何十個も繰り返して書くのが嫌いだったのよ」

「それで１時間たっても出来ないから怒ると『だって、縦と横と斜めの線ばっかたくさんあるんだもん』って言って」

「だって、同じ字を繰り返して何十個も書いていると、その字が漢字じゃなくて、ただの線の塊に見えてくるんだもの。文字として認識できなくなるから、書くのが苦痛だったの。子どもの頃はうまく説明できなかったから、線がたくさんあるってだけしかいえなかったけれど」

「でも、弟のほうは別にそんな言い訳をしなくても、３０分もすれば決められた分の書き取りをやれたわけだし、もしかしたらあんたはテレビの子みたいに学習障害があったのかしらねえ」

ママンはため息をつきながら、

「だとしたら、頭ごなしにしかったのは逆効果だったわよねえ。障害がある子にはその子なりの学習方法があるわけだし」

などと言う。

その頃の私は単に勉強がきらいな子どもだっただけなのか、 少々学習障害があったのかは今となっては判らないけど、 今更そんなことを言われても、 私が頭ごなしに怒鳴られしかられながら強引に勉強させられた過去は変わらんのですが脳。

それで、その会話を聞いていたパパ曰く、

「同じ字ばっかだから飽きるんだよ。般若心経でも写経してれば飽きなかったんじゃないのか」

なるほど・・・。まあ、お経じゃ学校で習わないような漢字が多すぎるから、国語の教科書でも写してればよかったのだろうか。すくなくとも文字が文字として認識できなくなるほど連続して同じ字を書かずにはすむしな。だが、漢字ノートの宿題としては認められん罠。

2004/01/15 14:40

年末に届いたので、攻略記事を探してググってたら、「ＧＣ版とＸＢＯＸ版は６０フレームだけど、ＰＳ２版は３０フレーム」という情報をゲットして、正月から凹み気味ですよ。

その他にも「移動するオブジェクトなどの上でキャラの影が表示されないらしい」とか「画面が綺麗じゃないらしい」とか、 他のプラットフォームの画面見てないから実際にはどうだかわからないけど、とにかくＰＳ２だけ他より劣る部分があるようで。

ああー、昔、グラディウスなんかをＰＳで買って負け組に入ってた人たちをせせらわらいつつサターン版プレイしてた私が、 こんなところで負け組になってしまうとは。

値崩れした頃にＸＢＯＸ版の中古でも買うかな・・・なんか悔しいけど、さすがに新品で買いなおす気力はない。

2004/01/08 15:16

長いこと放置していた X 上での日本語環境設定をやる。 「日本語 入力設定 X FreeBSD」てな感じでぐぐって出てきたページの設定をまるごとコピっただけなのだけど、もう二度とぐぐらんで済むように以下に張り付け。

macky:/home/kazuho<cat .Xresources
*inputMethod: kinput2
*kterm*openIm: true
*kterm*background: black
*kterm*foreground: white
*kterm*saveLines: 300
*kterm*ScrollBar: true
*kterm*KanjiMode: euc
KTerm*VT100*translations:       #override \
Shiftspace:        begin-conversion(_JAPANESE_CONVERSION)

macky:/home/kazuho<cat .xinitrc
#!/bin/csh
setenv LC_ALL ja_JP.eucJP
setenv LANGAGE ja_JP.eucJP
setenv JLESSCHARSET japanese
setenv XMODIFIERS "@im=kinput2"
xrdb -load /home/kazuho/.Xresources
kinput2 -canna &
exec startkde

んで、さっそく Opera を起動して日記でも〜とおもったのだけど、Shift+Space をいくら押しても日本語入力できない。またどっか間違えているのか、と、がっくりしつつも、ふと、Konqueror を起動してみたら、こっちではきちんと日本語が入力できるのだった。ぬー。Opera だけうまくいかんとは、何がいかんのだろうか。

それにしても、Shift+Space での入力切替えがいまいち慣れない。Windows だと、(いわゆる)全角入力中の半角スペース入力で Shift+Space を使うので、半角スペースの入った文章を入力してると戸惑うのだ。

はいいとして、日記 CGI の入力ページを表示させたら、種別選択のドロップダウンリストの幅が一文字分しかない。 Windows 上のあらかたのブラウザ (今試したら Opera on FreeBSD でも)では、select 要素は幅を指定しようが指定しまいが、中に含まれる option 要素の内容の最大文字数で幅が決ってしまう。ので、指定した事がなかったのだな。 どっちがブラウザ的にいいのかわからんですが、一文字しか見えないのはかなりつらいので、せめて５文字くらいは表示するようにマークアップを直しておこう。と、めもめも。

2004/01/05 14:22

qt な 2ch ブラウザ。

開発環境は Linux ですが、KDE 以外のものに基本的に依存しない開発方針のおかげで、 FreeBSD 上でも ./configure → make → make install とすんなり通って、 スレッド読み書きもばっちり。

これで、マウスオペレーションが必要でバッチスクリプトには出来ないけど人間様がやるにはあまりにつまらん作業をＵＷＳＣ使って Windows マシンに自動でやらせている間の暇つぶしの種類が増えましたな。

あと、Konqueror 使ってて、どうも左側がすかすかしてる気がしたので、左端に履歴を表示させてみましたよ。なんかもう、ウィンドウ下のタスクバーの形状見ないと Windows 使ってるんだか、KDE 使ってるんだか判らない状態になってきましたわね、奥様。

2004/01/05 17:23

FreeBSD の ports 情報サイトかー、これはしらんかった。お気に入りに追加。

2004/01/06 13:40

なんとなく qt と KDE のバージョンをあげようとして、 portupgrade を実行。

わーい、就業中に終わらないわー。

残りは明日。

2004/01/08 13:27

数箇所のサイトで取り上げられていた「まんがたうん」の 「特集：同人誌にも規制か？　山口貴士弁護士に聞く都条例改定案」。 ぱっと読んで気になるのは都の職員が街でたまたま見つけた本を不健全図書として認定できる「えっちなのはよくないと思います制度」「緊急規定制度」でしょうねえ。

誰が見ても「こらやばい」と思うレベルのものはまだしも、微妙な線の作品の場合、 「有害」とみなすかみなさないかはその人の好みで決まってしまうかもしれない。 私の手持ちのマンガだと例えばヘルシングなんてのは、相当えぐい暴力シーンがあるし、 特定宗教に対する批判っぽい描写もあるし、あるキャラなどは戦争を賛美してたりする。 ある都職員は平野耕太のファンなのでこのマンガを「無害」だと思うかもしれない。 だけど別の都職員はこの手の漫画が嫌いなので「有害」とみなしちゃうかも知れない。 まあこれはだいぶ極端なたとえだけど、こんな感じで、 たまたま本屋に行った都の職員の好みで特定の本がある日突然有害認定されちゃたまらん。

あと、もう一つの制度である不健全とみなされた描写が一定の割合で含まれた作品を自動的に有害図書とみなす「包括指定制度」もどーかと思うわけだが。 エロだけじゃなくて、暴力や薬物、ハッキングなどの犯罪行為の描写も不健全な描写とされるようで、たとえば名探偵コナンみたいな少年誌の探偵モノなんか、毎回殺人だのなんだのと結構な犯罪描写があるんですが、これも「有害図書」になるのかいな、と。

なんだかなあという気がする。この条例改定が通らなきゃいいんですがね。

2004/01/08 13:47

βテスト期間は明日の午後１時半までだが、会社員では平日の昼間までネトゲなんぞやってられない。

あらかたの人はたぶん私と同じで、βテストに参加できるのは今夜が最後なのだろう。あちこちで花火大会が催されていた。

花火はクエストをクリアするとご褒美としてランダムにもらえたらしい。去年の年末はＰＳＯ優先だったし、正月入ってからの休日は実家に帰ってたしで、ちっとも信長をやってなかった私は結局ひとつしかてにいれられなかったので、見物にまわることに。

だが、花火がきれいに見られるポジションを探して城の外をうろついていたら、どうやらアクティブのいるエリアにはいってしまったらしく、いきなり相模盗人に取り囲まれて死亡。一応、近江の同居人が小田原まで観光に来てたんだけどねー。助けを求める暇どころか、１ターンで４人からぶったぎられて終了ですもの。

花火を見るだけなら、別に幽霊でもかまわないやーと、幽霊のままふらふらしてたら、知らない人が「ここに幽霊がいます。誰か組成のできる方いませんか」と大声で叫んでくれた。「あー花火見てるだけなのでかまわないです」ととっさに返したものの、周囲会話になってたので、大声に反応してくれた人には聞こえなかったらしい。さらに知らない人に蘇生してもらってしまう。まーどーせ今日で最後なので気前がいいんだろうけれども、なんだか恐縮しまくりですよ。

同居人は「花火いくつか持ってる打ち上げてくるー」と花火職人の中にまざっていって１０数発あげてきたらしい。そういえば、私の虎の子は倉庫の中だ。もってきておけばよかったなあ。

ぼーっと見てるうちにみんな花火を打ちつくしたのか、周囲は静かになった。

製品版買ってまで遊ぶほど余裕がないので、私はたぶんこれで信長をやめてしまうけれども、皆さんお元気で。

2004/01/09 01:04

一年くらい前の、実に古いネタなのだけど、 私アニメを見てなかったので今日はじめて知ったんですよ、 この第２期の最終回っての。 んで、アニメ見てないけどマンガ読んでる友達にも教えたくて、 メモしておこうと。

あ、情報源は http://comic2.2ch.net/test/read.cgi/asaloon/1041559431/ です。面倒だから、URLだけ。

で、上記のスレッドにリンクされてる http://comic2.2ch.net/anime/kako/1042/10428/1042800437.html を読むと、１９番目に最終回のあらすじが書いてある。 えらくウソっぽいあらすじなんだけど、 公式サイトの最終回予告ページを見ると、 ９枚のスクリーンショットがあって、どうもそのうそ臭いあらすじにぴったりな絵があるわけで。

しかも、１３話まではアニメオリジナルな設定が含まれてるにしろ、 まほろらしい話だったらしく、 最終回でアニメ視聴者唖然なのだそうで。

いやー見なくてよかったというか、見なくて損したというか。

2004/01/08 14:45

つうかその数字見ただけで鬱になるわけで。

2004/01/08 16:46

Excel の VBA でマクロ組んでて、ウォッチ式のウィンドウに worksheet オブジェクト用の変数を登録した。

で、マクロ実行中に時々中断してその変数の値をチェックしてたわけだが、ウォッチ式のウィンドウに追加された変数がオブジェクト変数だと、そのオブジェクトに内包される要素を変数の下にツリー表示するらしい。今日はじめて知ったんだけどね。

おー、このツリー子オブジェクトも展開できるのか、便利だなー、と思いながら、うっかり cells プロパティの展開をクリックしてしまったからさあ大変。

はてさて。 一枚の worksheet の中にはいくつの cell があるんだろー。 Excel2000 だと 255列×65536行だからー・・・・。 もしかしてそれ全部展開するのかなー？

ランチャのメモリモニター見てると CPU100% 実メモリ０の状態が続き、どんどん仮想メモリが増えてくのが見える・・・。

１分経ったところで、おもむろにタスクマネージャから VBA エディタ強制終了をかける。

さようなら、１時間分のお仕事さん＿|￣|○

2004/01/09 16:51

何で、１０００年の日記が新着ページに追加されますか＿|￣|○

やっぱ、配列に一気にデータを読み込んで処理すべきか脳・・・。 既存のデータ一行ごとに、新規データとの日付を比べて挿入されるかされないかの判断してるからミスするんだ。配列の最後に追加してからだーっと日付でソートしてン日分を保存ってほうがミスがないような気も。

月データから新着作り直す時はミスらないのになんでデータ新規追加の時だけ、変になるんだろう。

2004/01/09 16:49

朝、保育園によってから、会社について、ふと見ると、自転車の前座席につけたプラスチック製の風よけにこすり傷がついていた。 なんでか中央だけコンクリートでこすったような感じ。保育園に行く前にはついてなかったので、保育園で子どもを預けてる間についたんだろう。

さらに後ろの籠に入れておいたポットが割れてお茶が全部なくなっている。 お茶が〜お茶が〜。昼休みの楽しみが〜。

はぅ〜。今日は風が強いので、自転車が煽られて倒れたのかな。 私が戻ってきたときには自転車は倒れてなかったので、誰かが起こしておいてくれてたんだろうなあ。 門の近くの塀の脇に止めておいたし、ラクラクマミーはスタンドが結構頑丈で倒れにくい形だから大丈夫だと思ったのに、高々１５分の間に。

まあ、風よけつけて今日みたいな風の強い日に走ってると、かなりの抵抗を感じるので、倒れたとしたらきっと風よけのせいなんだろう。

つうか、本来、外出中にとおり雨が降りそうな時の雨よけとして買ったので、こんな晴天時はとりはずしておくべきなんだけど、おとといちょっと曇ったときに取り付けたまま面倒くさがってはずさなかった私が悪いんだろうなあ。

はう。ポット買いなおさなきゃ。

2004/01/09 16:50

日記ＣＧＩの、いまだにうまく直ってない新規追加時の動作部分をちょっと変更したファイルを更新アップロード。

500 Error

えええ？　一行しか変えてないのに？

デバッグモードにすると、なんだかファイルが見つかりませんとかエラーが出てる。んで、ＣＧＩの下のバージョン表示は Ver.2.00 2003.7.04!

あーあ、やっちゃったね、チミ。(by デビルサマナーのジャックランタン）

なんだか半年前にいじくってまともに動作もしないままのソースを放置してたらしいのをすっかり忘れて、そのファイルで正常動作してたサーバーのＣＧＩファイルを上書きしたらしいですよ、奥さん！

散々慌てたあげく、cfunc.fiptips.com 用のローカルディレクトリに配布パッケージが残ってたのを思い出して、そっちから正常動作するＣＧＩを復帰。それまで日記書きながらちまちま修正してた部分が一気になくなりましたがまあしょうがない。一番の問題であった、一部の jpeg ファイルと gif ファイルを認識しない部分だけなんとか修正しなおしたバージョンを作成。

バックアップの意味もこめて、あとで、ふるいメニューに追加アップロードしておこう・・・。

2004/01/09 16:52

reindex コマンドは正常に動作してるので、日記のデータ編集時も、このコマンドに使ってるサブルーチンを通して、 常に月ごとデータから新着データを構築しなおすことにしました。

最初からそうすりゃよかった。

2004/01/09 17:26

つうわけで、去年の年末に見つかった虫歯の治療。

今日は左上の奥歯をやりますといわれ、歯磨きで上側の歯をみがくと「おえっぷ」となる私は初手から心臓ばくばくですよ。 しかも、「麻酔しますねー」って言われたからびっくり。え、まさか神経抜くとかそのくらいやばい虫歯なの？

って感じでさらにがくがくぶるぶるしてたら、神経抜くほどではないけれども神経に近い部分まで歯を削るので麻酔をかけるとのこと。ああ、そんなに怖いことになるわけではなさそうだ。

しかし、「おえっぷ」属性の人にあたると、先生も大変だ。本能で嫌がる子ども並にやさしく扱ってもらって、いや、ドリルが怖いのではなくて、助手の方が持ってるバキュームが上あごとか下の奥にあたると「おえっぷ」ってなるんですが、かといってバキュームしないわけにもいかず。ドリルの作業が中断するたびに口の中の奥のほうにたまった水をバキュームで吸い取られるのだけは勘弁してもらって、自分で飲み込んでました。歯のかけらみたいなのも飲んだ気がするけど、「おえっぷ」ってなるよりはまし。

そして、削ったあとに歯型。あの練り物が上あごにべったりくっついてるのが気持ち悪くて仕方ない。ああ、「おえっぷ」ってなるのが嫌だからと奥歯をおざなりに磨かず、きちんと丁寧に磨くんだった、なんて後悔しても後の祭りです罠。

ああ、ナウゼリンとドグマチールでも飲んでくればよかったかなあ、 まだ２つくらい薬箱の奥に残ってたよなあ。などと昔もらった吐き気止めの薬に思いをはせつつ、本日の治療終了。

来週は、今日やった虫歯に詰め物をして、右側下の奥歯の治療だそうな。ああああ。

2004/01/19 14:07

ネタがないので。先月書いてないぼちゃんネタ。

１歳のお誕生日を過ぎたあたりで歩行レベルが上がったらしく、 なにかにつかまらなくても立って歩くスキルを取得。 最初は２、３歩で座り込んでたけれども、 １ヶ月もたつともう結構な速さですたすた歩くようになった。

歩くのが楽しいのか、 公園につれていくとどんどんすたすた歩いていく。 公園内を歩く分にはかまわないのだが、 ほうっておくとなぜか勝手に公園の出口から道路に出ていってしまうので、 常にそばにいて方向転換してやらないといけない。

靴を履いて地面に立たせて置けるようになったので、保育園の帰りなど、まずぼちゃーんを自転車からおろして、その後荷物を担いで振り返ると、勝手にアパートの階段を這い登るようになった。 転げ落ちると怖いので、これまた大人は真後ろで身構えながら一段一段一緒に上らなければならない。

そうして、ようやっと、階段を全部上り終えたぼちゃーんはくるっと振り返ってにこっと笑い、そして頭から階段を下りようとする！

「ちょっと待て、頭から落ちたら死んじゃよ」 と抱き上げると、「ふぇぇええええええ」と不満げに泣き出す。

どうやら下に行きたいらしいので、下に連れて行くと、また意気揚揚と階段を上り始める。

一番上にたどり着くとまた振り返って頭から落ちようと…。後何回往復すればよいですか？

僕はもう疲れたよ、パトラッシュ。

駅の待合室の自動ドアはタッチスイッチ式である。ので、安心してぼちゃーんから目を離して、ベビーカーをたたんでいたら、自動ドアに突進して頭をぶつけて泣いていた。透明ガラスで出来た自動ドアの存在に気が付かなかったのか、センサー式の自動ドアと間違えたのかはわからない。

ステンレス製の背の高いすべり台はまだ無理だけれど、背の低いぞうさんのすべり台なら自分で階段を上ってすべることが出来るようになった。しかし、自力で階段を上った後は必ず頭からすべり落ちるので、大人が下で待ち構えてないと少々危ない。大人と一緒にすべる時はちゃんと座らせてすべらせてるのにな。なんで頭から落ちるかな。確かに頭から降りると座って降りるよりスリリングだけど。

2004/01/20 16:48

会社のアニメ好きお兄さんが去年 DVD レコーダーを買ったという。 話によると標準（片面１層で１時間）なら S-VHS かそれ以上の画質で録画できるというので、 自分家じゃプレーヤーがぶっ壊れてしまってもう再生できない手持ちの LD ソフトを DVD にダビングしてもらおうと相談をしてたんですよ。

新しい DVD-BOX が出てるけど、 わざわざ買いなおすほどの情熱もないエヴァンゲリオンをまず頼み、 次にライジンオーを頼もうとしたところで、

「ライジンオーも DVD 出てるんじゃないの？」

といわれて、うっかりググるんじゃなかった。

今年の４月に DVD-BOX が出るんだってさ。

でもまあ、ライジンオーはテレビシリーズ全部 LD で持ってる訳で。 OVA のコンプリートさえあきらめるなら DVD-BOX をわざわざ買わずに LD からのダビングを頼んで終了なのだけど、 ８巻以降買うのすっぽかしてて気が付いた時にはもう LD が手に入らなくなってたガンバルガーの DVD-BOX も秋に出る予定なんだってさ・・・。

今年も散財の予定か＿|￣|○

2004/01/13 12:37

この手の認証方法のニュースを読むと、どうしても星新一の頭の大きなロボットの話を思い出してしまう。

2004/01/14 16:47

結局、自分で作れるものは自分で作ったほうが面倒がなくていいんだなあ。

しかし面倒だ。

2004/01/15 14:11

すぐ忘れるのでメモ。

use Jcode;
sub SendMail{
  my($to_mail,$from_mail,$subject,$comment);
  my $body=jcode($comment,'sjis')->jis;
  my $subj=jcode($subject,'sjis')->mime_encode;
  my $from=jcode($from_mail,'sjis')->mime_encode;

  open(TMP,">tmp.log") or die "Error1($!)";
  print TMP "To: $to_mail\nFrom: $from\nSubject: $subj\n";
  print TMP "MIME-Version: 1.0\n";
  print TMP "Content-type: text/plain; charset=ISO-2022-JP\n";
  print TMP "Content-Transfer-Encoding: 7bit\n\n";
  print TMP "$comm\n";
  close TMP;
  open(MAIL,"| $sendmail -t") or die "Error2($!)";
  open(TMP,"tmp.log") or die "Error3($!)";
  @tmp=<TMP>;
  print MAIL @tmp;
  close TMP;
  unlink("tmp.log");
  close MAIL;
}

die で死んでる場所は、実際に使うときに直したほうがいいな、きっと。

2004/01/15 17:49

ぼちゃーんはおとといあたりから鼻水と咳を周囲に撒き散らしていたが、今朝になって熱もあがってしまってとうとうダウン。

朝からずーっとぐたーっとしてるので、布団に寝かせたのだけど、眠っていても時々咳き込むので熟睡が出来ないらしく、 １時間おきにぐずぐず泣きだし、そのたびに背中をぽんぽん。

おきている時も立ちあがるどころか、呼んでもこっちを見るだけで動かないし、だっこして座らせてもいつのまにかこっちによりかかってぐたー。熱は高くないけど、だるいらしい。

２日前にポララミンとムコソルバンをまぜたのを処方してもらってたのだが、それでも鼻水が止まらないしどうにもつらそうなので、再度小児科へ。夜中に高熱が出た時のための座薬と抗生物質が処方された。

んで、「インフルエンザの所見ではないけど、もし夜になって３９度以上の高熱が華々しく出た場合は、今日出した抗生物質を飲ませずに病院へ」だそうで。華々しくねえ・・・。出なきゃいいなあ。

2004/01/21 14:07

気が付いたらぺーじらんくが５になってた。

といってもランク５には、うちみたいに毎日のユニークアクセス１５０（のうちサーチエンジンからの誤爆９割残りロボット）なサイトから、お気に入りからのアクセス２０００以上のそれなりに有名なサイトまで含まれるので、ランクが上がったからメジャーサイトへ近づいたかというとそういうわけでもなく。

google ランクが上がると google 様の誤爆率もあがりそうな気がしなくもないので、サーチエンジンからやってきて目的の情報を見つけられなかった方には申し訳ありませんとここで平謝りしておくしか。

2004/01/19 11:29

Windows用のhttpサーバー。Windows 版 Apache よりインストール＆設定が楽です。 ActivePerl ぶちこんでおけば CGI、SSI の起動も出来ますです。

テスト用の CGI が動いてるので、自宅 PC にいれれば結構使えそうな感じ。ただ、自作の CGI はWindows なんぞで動かすことを考えて作ってませんので、修正かけないと動かないで砂。

つうか、今適当に wvotex 設置してみたら、起動はするけどフォームの送信ボタンを押したら CGI のソースが表示されましたよ、ママン！ やったー、見事にはまってらー。

修正とか説明とか面倒くさいから、 やっぱ Windows は動作対象外のままいきますです。

2004/01/19 17:22

あー。半年以上ひっかからないと、 それがどういう原因で起きる問題なのかすっかり忘れてしまう。

500 error になる CGI の実行時エラーメッセージと対処法。

failed to open log file

たいてい先頭行の「#!実行ファイルのパス」が間違ってるか、 スクリプトの改行コードが CRLF のままであるかのどちらかである。

Can't locate ほげほげ in @INC (@INC 略

use なんちゃら;、もしくは require "なんちゃら"; の前に、

use lib 'ディレクトリ';

を追加する。 push(@INC,'ディレクトリ'); だと use なんちゃら; には通用しない。

年はとりたくないものよ脳。げほげほ。

2004/01/20 15:58

信長βも終わったので、いったんシステムを去年の１１月末あたりのバックアップで巻き戻し。

ただ、巻き戻し予定のデータは PSO インストール前なので、その前にＰＳＯのシステムが入っているディレクトリを別ドライブに丸ごとバックアップして、レジストリを保存しておく。オンラインは終わったけど、暇な時にオフラインで遊べるしね。

一応解説。PC 版 PSO はキャラデータがローカル保存。一度でもオンラインでプレイしたデータはソフトについてくるシリアル番号＆アクセスキーとメールアドレスでロックがかかる。シリアルなどの入力データは初オンラインプレイでサーバーに接続した時にレジストリにバイナリデータで保存され、それ以降は別のシリアルで遊んだデータやオフラインのみで遊んだデータをそのシステムに上書きしても「ファイルが破損している」とメッセージが出てそのデータでは遊べない。また、一度もオンライン接続していない（つまりレジストリにそれらのデータがない）システムに、オンラインに接続したことのあるデータを上書きした時も「ファイル破損」とみなされる。サーバーが終了した今となっては、再インストール後にレジストリにシリアルを登録することが出来ないので、以前のレジストリのバックアップが大事なのだ。

巻き戻しが終わった後、ＰＳＯをディスクからインストールしなおして、バックアップを上書きコピー。レジストリを書き戻して、さあ実行だ。

「ファイルが破損しています」

なにゆえ〜〜〜〜〜〜？

いろいろ調べたら、レジストリを書き出したファイルの中身が、キー名だけじゃあないのさ！

つうか、これは、HKEY_CURRENT_USER 下の Softwere\SonicTeam の中身じゃなくて、 HKEY_LOCAL_MACHNE 下の Softwere\SonicTeam の中身じゃんかー＿|￣|○

シリアルやメールアドレスのデータは、HKEY_CURRENT_USER ↓に保存されているわけで、HKEY_LOCAL_MACHNE 下しかバックアップとってないということは、つまり以前のデータで遊べないということで。

「わー、やっちゃったね。これで手裏剣とさようならだね」と、同居人が後ろから覗き込んでニヤニヤしている。

ｳﾜｧｧｧｧｧｧヽ(`Д´)ﾉｧｧｧｧｧｧﾝ!

と、まてよ、Win2000 のシステムは HDD まるごと残してあるんだ。あっちのレジストリからシリアルとアクセスキーとメールアドレスのデータを抜き出せばいいんだ。

つうことで、内蔵ディスクをつなぎかえて Win2000 を起動して、レジストリをバックアップ。WinXP に戻して PSO 再起動。

キャラが出てｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!

あーよかった。レジストリバックアップしなおしておこう。

2004/01/21 13:42

今現在、うちの電話は ISDN 回線であります。 音声電話用に２回線使えるので、２回線目にダイヤルインサービスで主電話番号とは別の番号を割り当てて使っております。

んでだ。いつまでたっても INS64 上の DSL サービスも出てこないので、そろそろ ADSL の軍門に下ろうかといろいろ検討してて、困ってるのがこのダイヤルイン。 別になきゃなくたっていいものではある。なんだけど、私、銀行とかクレジットとかみんなダイヤルインで取得したほうの番号書いてるから、なくなるとなると全部変更申請しなきゃならなくて、出来ればダイヤルインを残しておきたいのだ。

が、アナログ回線に戻してダイヤルインサービス使うとなると、いままでの ISDN ルータは使えない。そのかわりに「アナログ回線用のダイヤルインに対応した通信機器」なるものを使わねばならない。

NTT に電話して、「一般の家庭で使うようなものでダイヤルインに対応している通信機器にはどのようなものがありますか？」と問い合わせたところ、「うちで提供しているのですとでんえもん２２５になります」なんて返事が。他の家庭用ＦＡＸは対応してないんですか。

ISDN 用のＴＡやルータなどはたいてい対応しているダイヤルイン、アナログ回線用ではこんなに特殊なものなのか。つうか、まあ、アナログ１回線にわざわざ２つ番号振る奴は一般のご家庭にはいないですわね。

なんてことで、ダイヤルインをあきらめるか、ブロードバンドをあきらめるか、光ケーブル増設のために大家を説得するか、の３択になってきてたんですが、たまたまヤマハのブロードバンドルーターを見てたら、 RT56vつうのがどうもアナログ回線でのダイヤルインに対応しているらしい。値段はちょっと巷で売られている安物ルーターに比べると高価だけどねえ。まあ、ヨドバシあたりで買えば、上のでんえもんをＮＴＴから買うのと同じくらいだから、まあ、そう思えばいいのかしらん。

つうわけで、ちょいと検討材料に含めておく。まあ、信長βもＰＳＯも終わってしまって、今ネットゲームやってないから別にブロードバンドブロードバンドと騒ぐ必要もなくなっちゃったのだが。

2004/01/21 11:52

djbdns と DHCP サーバーを連携するツール。

実験するのはいつになることやら。

2004/01/21 13:45

ひさびさに 98 ノートの FreeBSD を起動して、Samba を packages からインストールし、起動したら、そんなエラーメッセージが出るのですよ。

で、/usr/local/lib をみると、libintl.so.4 がない。

CosmoJet のほうには libintl.so.4 がちゃんとあるわけで、 こっちにはインストールされていて 98 にインストールされていない何かがあるはずだが、その何かがわからない。 早速 libintl.so.4 でググって、 devel/gettext をいれりゃいいというところまで調べる。

/stand/sysinstall でお手軽 packages 導入を試みるも、エラーが出てインストールに失敗する。

結局 HDD の空き容量がなかったのでやりたくなかった ports をつかって、gettext をインストール。（裏で df リロードして空き容量にらんでたら 98% までいってたよ。）しかし、出来たのは libintl.so.5〜。しょうがないので、libintl.so.4 をシンボリックリンクで作って終了。

これで、dos パーティションを Windows マシンにバックアップできますよ。って、ここまで書いてから、dos パーティションを tar で固めておいてから Windows 側で WinSCP 使ってアーカイブを get すりゃもっとお手軽にバックアップできたような気もしてきましたが、気が付かなかったことにしておきましょう。ええ。

つうか、PCカード用のDOS用ドライバがあれば SCSI カード挿して、MO ドライブつなげてバックアップとって終了なのだが、いかんせん中古で買ったノートは HDD まっさら＆付属ソフトいっさいなし状態でドライバが手に入らなく・・・あ、よくよく考えたら、PC カードな NIC が使えてんだから SCSI カードだって FreeBSD からさっくり使えるんじゃないだろうか＿|￣|○ ﾏﾖｲﾐﾁｸﾈｸﾈ

おや、ずいぶん前に同じバージョンの組み合わせで libintl.so.4 がなくてはまった人がいるではないか。＞ FreeBSD-user-jp

users-jp より先に 2ch の UNIX 板を検索してる最近の私って・・・＿|￣|○

2004/02/03 11:59

libintl.so.数字 というファイルのほかに libintl.so つうまったく同じ内容のファイルがあるわけで、こっちに依存してくれれば、いちいち古い名前のファイルを作らんでもいいような気がするのだが。

2004/02/16 16:46

98 ノートの dos パーティションのバックアップは結局 Samba 経由でとってしまったのだけど、昨日書いたとおりお手軽に SCSI カードが使えると後々便利なので、実験してみる。

SCSI カードは IO-DATA の PCSC-FP。/etc/defaults/pccard.conf には記述がないのだけど、ググったら nsp0 で認識したという記述が見つかる。

さっそく、２スロット目にカードを追加して、ノートを起動。 すると（うろおぼえだが）、

pccard[47]: Failed to allocate IRQ for WBT

なんてなエラーが出てきて、SCSI カードが認識できない。

１枚ずつだとどちらもちゃんと認識するし、 エラーメッセージからすると、２枚目にIRQ が割り当てられてないから認識できないだけみたいだ。 たぶん、去年の７月に FreeBSD(98)-4.8R をインストールした時、 インストーラーが表示する「ＰＣカードが使うIRQ を設定して下さい」メニューで IRQ5 しか選択してなかったから、そのせいで IRQ が一つしか使えないようになってしまってるのだろう。

rc.conf を見ると、

pccardd_flags="-i 5"

という行があるので、ここをコメントアウトして、リブート。

再起動すると、ネットワークカードが IRQ3、SCSI カードが IRQ5 に割り当てられた。 けれども、ネットワークカードが device timeout を起こして、通信できない。そいや、それでインストール時に明示的に IRQ5 を指定した記憶が（滝汗）。

/etc/defaults/pccard.conf から　/etc/pccard.conf に irq の行だけコピペし、先頭部分の 3 を削ってリブート。

こんどは、IRQ10 に割り当てられた SCSI カードが device timeout。続く IRQ11 は dmesg を見る限り、fdc0 が使っているからだめだよね。IRQ15 はハードウェアが対応してないって起動時に怒られたし。もしかして、PC カードに使える割り込みはひとつしかないのかしらん。

ここで、ふと思いついて会社のWin95 な PC-9821V20 を起動。どーせデスクトップもノートも割り込み構成は似たようなもんでしょ、という非常に安易な発想で、コンピュータのプロパティから IRQ 一覧を見る。

00 システムタイマー
01 NEC 98 標準キーボード(95)
03 不明なデバイス
04 通信ポート(COM1)
05 第２通信ポート(COM2) 
06 I-O DATA SC-UPCIシリーズ
07 プログラミング可能な割り込みコントローラ
08 数値データプロセッサ
09 スタンダード IDE ハードディスクコントローラ
10 MELCO LCI2-TXI Fast Ethernet Adapter
11 スタンダードフロッピーコントローラ
12 PC9821X シリーズ PCM ダイレクトサウンド
13 PC9800 シリーズ Bus Mouse
14 プリンタポート36ピンパラレルインターフェース(LPT1)
15 システムタイマー

と、なっている。IRQ6 の SCSI コントローラと IRQ10 のネットワークカードは増設ものだから、ここを使えばいいはずだなあ。 とりあえず、pccard.conf を

irq 5 6

に変更して再起動。おー動いた。 dmesg の PC カード回りのメッセージはこんなかんじ。

FreeBSD 4.8-RELEASE #0: Fri Apr  4 18:05:58 2003
pcic0: <TI PCI-1130 PCI-CardBus Bridge> at device 6.0 on pci0
pcic0: PCI Memory allocated: 0x88000000
pci_cfgintr: can't route an interrupt to 0:6 INTA
pcic0: No PCI interrupt routed, trying ISA.
pcic0: Polling mode
pcic0: TI113X PCI Config Reg: [speaker enable][CSC parallel isa irq]
pccard0: <PC Card 16-bit bus (classic)> on pcic0
pci_cfgintr: can't route an interrupt to 0:6 INTB
pcic1: <TI PCI-1130 PCI-CardBus Bridge> at device 6.1 on pci0
pcic1: PCI Memory allocated: 0x88001000
pci_cfgintr: can't route an interrupt to 0:6 INTB
pcic1: No PCI interrupt routed, trying ISA.
pcic1: Polling mode
pcic1: TI113X PCI Config Reg: [speaker enable][CSC parallel isa irq]
pccard1: <PC Card 16-bit bus (classic)> on pcic1
pccard: card inserted, slot 0
pccard: card inserted, slot 1
ed13 at port 0x300-0x31f irq 5 flags 0x10 slot 0 on pccard0
ed13: address 00:00:e8:26:12:5e, type NE2000 (16 bit) 
nsp0 at port 0x240-0x24f iomem 0xd4000-0xd4fff irq 6 slot 1 on pccard1

nsp0: try to reset scsi bus  
nsp0: scsi_low: probing all devices ....

デスクトップの Windows では COM2 が使ってるはずの IRQ5 がノートで使えてるのは kernel.conf で di sio1 してたおかげかなあ？ なんか、脊髄反射で削ってたんだけど。 すると、ハードに存在しないけど IRQ10 に割り当てられてそうなデバイスを明示的に削ってみると IRQ10 も使えるかな？

さて、実際に MO ドライブ接続してみるか・・・って、あいてる MO ドライブがないよ、ママン。今使ってる Windows マシンからひっこぬくしか。ってー、MO ドライブつなぎかえるたびに Windows 再起動ですか、奥さん！？！

2004/01/23 14:58

今度は 98 ノートの FreeBSD パーティションをどっかにバックアップするために CosmoJet に NFS サーバーをたてる話。

や、実を言うと、98Nr15 は内蔵 HDD が 1GB なんだけど、去年の大掃除の時になぜか私の机の上に 4GB の 2.5 インチ HDD が放置されてたので、こいつと換装して有効活用してやろうと。もっとも、この HDD は社長のノートパソコンに入っていた奴で、調子が悪いからと交換した奴だったり。まあ、５００円くらいで叩き売られてるジャンク品を使うくらいのバクチですが、不具合が出たら大人しくもとの 1GB HDD に戻すだけなので。

んで、98 ノート側の NFS クライアント設定はハンドブックに書いてあるとおり、 /etc/rc.conf に、

nfs_client_enable="YES"
nfs_client_flags="-n 4"

で、終了。 CosmoJet のほうに移動して、共有のためのディレクトリと /etc/exports を作成。

macky# mkdir /pub
macky# cat /etc/exports
/pub -mapall=kazuho:myhome milmo

としてから、サーバー起動のためにハンドブックの、

必要な変更はすべて行ったので, FreeBSD を再起動してブート時からすべてが起動するようにするか, root で以下のコマンドを実行します:

NFS サーバでは:

    # portmap
    # nfsd -u -t -n 4
    # mountd -r

の項のとおりに実行しようとしたら、

macky# portmap
portmap: Command not found.

といわれる。でー、本日何回目か判らないけど google 様に伺いを立てたら、R5 あたりで portmap が rpcbind と置き換えられたらしい。 なので、R5.1 な CosmoJet では、

 # rpcbind
 # nfsd -u -t -n 4
 # mountd -r

としなければならなかったのですな。やれやれ。

2004/01/23 17:32

こないだ、私が実家から持ってきた１５インチのＴＶがぶっ壊れました。画像は映るのに音が出ないという状態で、これがスピーカーがいかれたってだけなら、あまってる PC 用のスピーカーを外部音声出力につなげて使ってたんですが、どうも内部の音声回路周りが逝っちゃったらしく、外部出力にも音が出てこない。基本的にうちではテレビはしゃべる時計がわりに使ってるところが大きく、音が出ないと困ってしまう。しょうがないので、新しくＴＶ買いました。

新しくやってきたのは２１インチのごくごく普通のＴＶ。まあ、衛星アンテナもケーブルテレビの線もないし、つながるものといえば、ゲーム機とＶＨＳデッキくらいなものなので、特別高性能のテレビは必要ないもの。大きさも本当は１７インチくらいで十分だったのだけど、電気屋に行ってみたら、最近のブラウン管ＴＶって１４インチの次は２１インチなのですな。

で、画面も大きくなったことだし、ためしにオフラインチャレンジでもやってみようじゃないか、と、ひさびさに XBOX を起動してみたわけであります。

同居人との二人プレイなので、キャラ選択にまず悩む。四人でやるなら多少の変則構成でもどうにかなるのだが、二人だけだと、たとえばフォースだけで突き進むとかいうのはまず無理だものね。

少しでも楽に進むためには罠が発見できるキャラとテクニックが使えるキャラが必要だが、ロボレンジャーとフォースではモノフルイドが切れた時に先に進むのが困難になる。では、ロボハンターと生身レンジャーではどうだろうか。 つうことで、HUcaseal と RAmarl を作成。

まずＣ１。

途中、ワープしてスイッチを押さなきゃならないところを HUcaseal 一人でがんばらないといかんのがつらいくらいで、 後はまあどうにか。さあ、最後はドラゴン戦だ。

判ってたけど、２Ｐプレイは足元が見えないのがつらい。 ２人でのテストプレイちゃんとやったのかなあ、ソニチの中の人は。 あと、マルチプレイ時のＨＰステータスとメニューとマップレーダーの排他表示仕様が、もう本当につらい。DC や PC の時、見てないようで結構見てたんだなあ、マップレーダー。

続いて、Ｃ２。

RAmarl はナノノに対して通常攻撃のダメージが０か１です。１匹だけなら牽制のつもりで連打しててもいいけど、２匹以上だとはっきりいってだめだこれは。セイバー使った近接攻撃に切り替えればあたるけど、それだって一桁ですよ、奥さん。そうこうしてるうちに、背後からべつのナノノのビームにあたって死亡ですよ、奥さん。

Ｃ２はただでさえ難易度の高いステージで神経使うので、 何度もくりかえしてやってるとだんだん嫌になってくる。 ので、２回目で終了。また今度〜。

2004/01/27 14:20

まずは昨日の反省会。

RAmarl が攻撃力低いしテクニックも精神低いせいでなかなか使えないのが問題だ。 などとプレイヤーのヘタレさ加減を棚に上げて、RAmarl は戦力外通告。オフラインのシングルプレイでなら、使いやすいキャラらしいんだけどなあ。まあ、プレイヤーがヘタレなのは変えようがないからしょうがない。 その代わりに RAmarl よりも精神が高くて攻撃力もそこそこある生身ハンターつうことで HUnewearl を選択。命中が致命的だが、テクニックさえ覚えれば。テクニックは必ずあたりますからね

Ｃ１の１回目。ドラゴンに近づきすぎた HUnewearl が下敷きになって、いきなり墓作成。間合いがわからねー。 ２回目は、少し離れたところからバータ連打。セイバー？なにそれ。チキンプレイ最高。

Ｃ２。レスタ１のおかげで、そつなくクリア。２連続でレスタ出たけど、もしかしてでやすくなってるのかしらん。

にしても、Ｃ１、Ｃ２、と、オンラインで４人でやった時の２倍程度の時間がかかる。週末で２ステージずつくらいかねえ、できるのは。そして、Ｓランクが取れる日はいつだ。だれかまじでオフラインチャレンジやろうよ、海いこうよ海。

2004/01/27 15:36

CD-R にコピーしたファイルのタイムスタンプが、 全部 CD-R に書き込んだ時間になってるよ、ママン＿|￣|○

タイムスタンプなどのファイル属性も保存したかったら、 アーカイブにしてから焼けと。 そうおっしゃいますか＞ WinXP の中の人

2004/01/28 09:54

やー、私もね、あとからＰＳＯびよりのチャレンジお勧めキャラページを読んで、 HUnewearl 選んだのは茨の道パート２なんじゃないかという気がぎゅんぎゅんしてきてたんですが、 同居人はﾁｪﾚ厨ではないので、 またキャラ変更してＣ１からやりなおしたいなんて言ったらもう遊んでくれません＿|￣|○。

んで、まさか「鉄」って男のほうだけをさしますか？ Ep2 仕様の HUcast の命中の下がり具合にはおどろいたのだけど、 それでも男のほうが使いやすい？

つうか、HUcaseal 担当の同居人はＣ１はじめた直後 「ねー、HUcaseal って命中低いほうでしょ〜。全然当たらないよ」 と愚痴っており、２日目の反省会の最中に攻略本のキャラステータス一覧見て 「えええええっ、ハンターの中で一番命中高いキャラだったのー？」 と驚いておりました。 そんな彼に Ep2 の HUcast（＆HUnewearl）を演じさせるのは無理っぽいです。

2004/01/29 14:52

まえおき。

昔々、MS-DOS 華やかなりし頃、 オンラインソフトに添付されている説明書のファイルといったら、 拡張子がたいてい doc でありました。

もちろん中身はただのテキストファイルだけど。

んでだ、その MS-DOS なオンラインソフトの説明書を Windows マシンで読もうとしてうっかりダブルクリックしてしまうと、 Microsoft Word が起動しちゃうんですわ。

中身がただのテキストファイルなのに。

で、３回ほど Word を起動してから、 おもむろに拡張子を変更する perl スクリプトを書き始めたわけで。

１回使えば終わりだけど、何年か後に級に欲しくなるかもしれないので、例のごとくコピペ。

@echo off
rem -------------------------------------------------------------------
perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto END

#!/usr/local/bin/perl
$title='.doc なテキストファイルの拡張子を .txt にする';
$ver='doc2txt.pl Ver.0.01 by Kazuho/V.Sonic';
$name=substr($0,rindex($0,'/')+1);
#------------------------------------------------------------
# パラメータデフォルト
$f{'e'}=0; # パラメータにエラーがあったら作業中断
$f{'f'}=0; # ファイルの中身をチェックしない
$f{'R'}=0; # ディレクトリ再帰
$f{'i'}=0; # ファイルごとに聞く
$f{'y'}=0; # いちいち確認しない
$f{'s'}=0; # メッセージをださない
$f{'v'}=0; # くどくど説明する
$f{'t'}=0; # テスト
$f{'V'}=0; # バージョン
$f{'h'}=0; # うさげ
@dirs=();
@files=();
@errs=();
$ycnt=0;
$ncnt=0;
$fmt{"{\\rt"}='リッチテキスト形式'; # RTFフォーマット
$fmt{pack("H8","d0cf11e0")}='MS-WORD 形式'; # MS-Word 形式(95以降)
#------------------------------------------------------------
&ChkPrm;
print "\n$ver\n$title\n\n" unless($f{'s'});
if(@errs){
    print STDERR @errs;
    &Usage if($f{'e'});
}
foreach my $dir (@dirs){
    &DirSrch($dir);
}
unless(@files){
    if($f{'i'}){
        print "ディレクトリを指定して下さい\n";
        my $ret=<STDIN>;
        $ret=~tr/\0\r\n//d;
        &DirSrch($ret);
    }
    else{
        &DirSrch('.');
    }
}
unless(@files){
    &Msg("変換するファイルがありませんでした\n");
}
else{
    foreach my $file (@files){
        &ChkFmt($file);
    }
}
&Msg("\n変換したファイル $ycnt 個\n");
&Msg("変換しなかったファイル $ncnt 個\n");
exit scalar(@files);

#------------------------------------------------------------
sub Msg{
    print @_ unless($f{'s'});
}

#------------------------------------------------------------
sub VMsg{
    print @_ if($f{'v'} and !$f{'s'});
}

#------------------------------------------------------------
sub YesNo{
    if($f{'i'}){
        print @_;
        print "(Yes)/No/All/Exit ";
        my $ret=<STDIN>;
        if($ret=~/^[N|n]/){
            return 0;
        }
        elsif($ret=~/^[A|a]/){
            $f{'i'}=0;
            return 1;
        }
        elsif($ret=~/^[E|e]/){
            &Msg("中断します\n");
            exit 0;
        }
    }
    return 1;
}

#------------------------------------------------------------
sub DirSrch{
    my($dir)=@_;
    return unless($dir);
    &VMsg("ディレクトリ $dir\n");
    opendir(DIR,$dir) or die("ディレクトリ($dir)がオープンできません($!)\n");
    my @entrys=readdir(DIR);
    closedir(DIR);
    foreach my $entry (@entrys){
        next if($entry=~/^\./);
        my $fullpath;
        if($dir eq '.'){
            $fullpath=$entry;
        }
        else{
            $fullpath=$dir.'\\'.$entry;
        }
        if(-d $fullpath){
            &DirSrch($fullpath) if($f{'R'});
        }
        elsif($entry=~/\.doc$/i){
            push(@files,$fullpath);
        }
    }
}

#------------------------------------------------------------
sub ChkFmt{
    my($file)=@_;
    my $str='';
    unless($f{'f'}){
        open(FILE,$file) or die("ファイル($file)がオープンできません($!)\n");
        read(FILE,$str,4);
        close(FILE);
    }
    if($fmt{$str}){
        &Msg("$file は $fmt{$str} のファイルです\n");
        $ncnt++;
    }
    else{
        &VMsg("$file は テキストファイルです（たぶん）\n");
        if(&YesNo("$file の拡張子を変換しますか？\n")){
            my $fname=substr($file,0,length($file)-3);
            &Msg("$file => ${fname}txt\n");
            rename($file,$fname.'txt') unless($f{'t'});
            $ycnt++;
        }
        else{
            $ncnt++;
        }
    }
}

#------------------------------------------------------------
sub ChkPrm{
    # パラメータ確認
    foreach(@ARGV){
        if(/^-(.)/){
            my $p=$1;
            if($p=~/[h|V|?]/){
                &Usage($p);
            }
            elsif($p=~/[i|y|s|v|R|t|f]/){
                $f{$p}++;
            }
            else{
                push(@errs,"$_ : 不正なパラメータです\n");
            }
        }
        else{ # ファイル指定
            if(-d $_){
                push(@dirs,$_);
            }
            elsif(-f $_ and $entry=~/\.doc$/i){
                push(@files,$_);
            }
            else{
                push(@errs,"$_ : 指定のファイルまたはディレクトリは存在しません\n");
            }
        }
    }
}

#------------------------------------------------------------
sub Usage{
    my($p)=@_;
    print "usage: $name [-R] [-f] [-v|-s] [-i|-y] [-t] [dirs|files] ...\n";
    print "       $name [-h|-V]\n\n";
    unless($p eq 'V'){
        print <<__EOF__;
.doc なファイルの中を調べて、テキストファイルらしいファイルの拡張子を
.txt に変更します。
Word95 以降の doc 形式、rtf 形式に対応してます。
WordPerfect や 95 以前の Word の doc 形式には対応していません。

オプション説明
    -R : サブディレクトリの中も調べる
    -f : ファイルの中身をチェックしない
    -i : ファイルごとに聞く
    -y : いちいち確認しない
    -s : メッセージをださない
    -v : くどくど説明する
    -t : テスト（実際に実行しない）
    -V : バージョン
    -h : うさげ

    オプションに-y を指定して、ファイル名やディレクトリ名を指定
    しない場合は、カレントディレクトリにある .doc ファイルを対象に
    作業します。
__EOF__
    }
    exit 1;
}
#------------------------------------------------------------
__END__
:END

あー、MS-DOS 上の Jperl4 で動かせるように作るつもりだったのに、 my つかってらー。いいや、Windows マシンで変換してから、DOS マシンに戻しちゃえー。

2004/01/28 16:26

せっかくひねくりだした拡張子変換スクリプト実行しないで、 DOS マシンに書き戻してるし＿|￣|○

いま FreeBSD 動いてるし、DOS で再起動するのも面倒だから、もういいよ、FreeBSD 上で動かす。って、パスのセパレータを「\」固定にしてたから、ディレクトリ検索中にエラーが出ちゃったじゃないのさ。なのに、コマンド名を調べる部分はセパレータが「/」ですわよ、奥様。 いろんなソースから切り張りして捏造したのがばればれじゃないですか。

しかも、置き換え前に、またもや私は .doc なテキストファイルダブルクリックして Word 起動したよ、ママン＿|￣| ...○

2004/01/29 10:18

気が付いたら、ランクが３に戻っていた。ちとさびしいが、まあ身内向けの日記ページに５もつくほうがおかしいものな。

んで、一時期にランクが上がっていたのは、どうやら google 様が月末定例の踊りを披露なさっていたからのようだ。

もしかしたら、いままでも毎月末はこんな感じで踊ってたのかも。 たまたま、私が初めて google ツールバーのランク表示を見て気が付いたのがこの間なだけで。

2004/01/29 10:08

最近どうも簡単に＿|￣|○していることが多すぎる。

弱い自分を甘やかさないためにも、今後は＿|￣|○は一日１回までにしようと思う。

つうか、記号の乱用はよせよと。

2004/01/29 10:14

えー、パソコン初めたころはみんな usage を「うさげ」と読んで周りから笑われたりするもんじゃないのですか？

あと、perl を「ぺるり」とか adobe を「あどべ」とか・・・。

2004/01/29 10:29

どっちがわるいのかわからないけど、 DOS パーティションにファイルコピーしたら起動しなくなった。

あー、そのあと、/dos 上で perl スクリプトも走らせたっけな。 でもなんにせよ、 ルートにある IO.SYS だの COMMAND.COM だのは１回も書き込みしておらんのに〜。

しょうがないので、初期化しなおしたあと CD-R からバックアップを戻す。

むー。やっぱり、ro でマウントしておいたほうが無難そうだなあ。

2004/01/30 12:13

読冊日記１月１４日のトリビアの項にある、 「日本人女性が下着を付けるようになったのは デパート火災のせい」を読んで、あれ、デパートだったっけ？と思った。

どうやら私は、東京日本橋白木屋デパート火災と桜木町電車火災とを混同してたらしい。電車火災のほうで死傷者がたくさん出たのは、非常コックがなくて扉があけられなかったのと、窓から抜け出そうにも窓枠が小さくて抜け出せなかったせいでしたわね。

2004/01/30 12:35

「鋼の錬金術師」の作者は女性だったのですカー！ コミックスしか読んでないと気がつかんですよ。 ペンネームが男っぽい名前だし、自画像は牛だし。

でもまー、遠い昔、「麦ちゃんのヰタセクスアリス」の作者が男性であることとか「あおいちゃんパニック！」の作者が男性であることを知った時に比べたら衝撃度は低いわな。

2004/01/30 13:16

つつじヶ丘駅前の中古屋で XBOX 版のソニックヒーローズがあったので、少々悩んだ末にゲット。

PS2 版と見比べて見ると、やっぱり、XBOX 版のほうがなめらか。しかも影が丸じゃないし、動くオブジェクトの上でも影があるよ、ママン。 ただ、ダークステージやってて、敵がたくさんいる場所で攻撃エフェクトもたくさん出た瞬間、あからさまにウェイトがかかるのはどうなんだろうなあ。

あ、グラディウスのウェイトと同じだと思えばいいのか。そうだな。

ともあれ、近々 PS2 版うっぱらって来ます。エヴァンゲリオン２とともに。二つで XBOX 版ソニヒの代金分くらいになるといいのだが。

2004/02/05 11:19