芋弐

ニフティクリップとOpera

まず、ニフティクリップに登録してみた。

http://clip.nifty.com/users/imo/

でもってOperaの場合どうすりゃいいんだ…と思ったら、IEのブックマークレットそのままでいける模様。

とりあえずこれだけ。

電通WEBサイトの無断リンク拒否声明

このサイトのご利用にあたって | dentsu online によると、電通WEBサイトは様々なリンクを拒否しているようだ。

しかし電通WEBサイトのパスワードをかけていない公開サイトは、それを自ら公開している以上、被リンクは原則として拒否できないし、言論の批判……電通WEBサイトに対する正当的な批判（当コンテンツ然り）は甘受しなければならない社会的責任がある筈だ。

もし道義的にすら問題の無いリンクすら拒否したり、法的な手段などを以って対処しようとすれば、社会全体からみて憂慮すべき事態となることを自覚すべきである。

心情として、問題があったり、わけのわからないサイトからリンクされたくないというのは解るが、少なくとも負うべき社会的責任がある立場と、加えて企業戦略等の見地からみても、真っ当で一般的なリンクは拒否すべきではないし、むしろ積極的に歓迎したほうが良いと考えるが、如何だろう。

ところで次の一文には衝撃を受けた

● サイトの管理・運営者が不明、またはハンドルネーム等により運営されているサイト、あるいは代理運営されているサイトなどからのリンク （引用元：このサイトのご利用にあたって | dentsu online）

サイトの管理者が解っていないと駄目と主張しているらしい。しかもサイトの管理者が解っていても、ハンドルネームだと駄目と主張しているらしい。

否、電通WEBサイトを紹介し電通WEBサイトを批判する自由がある筈だ、少なくとも真っ当な論と方法に拠るものならば現代社会における人間なら誰しもが。電通WEBサイトをはじめ誰しもが、この芋弐サイトを非難する自由があるのと同じように。

インターネット社会は、相互リンクは自由だという前提にたって設計と運営が為されており、かつそれから相互に浴する恩恵は決して無視できるものではない筈だ。無断リンク拒否論者はこのことを真摯に理解しているのだろうか、甚だ疑問である。

100の質問に回答

質問多過ぎ

時々見かける100の質問シリーズはマジックナンバー７とか、３とか、そのくらいに絞った方がいいのでは。で７Ｑとかセブンクエスチョンとか雰囲気も一線を画した名前を付けて…。

細かく尋ねたいなら質問を、３ｘ３、７ｘ３、３ｘ７、などの階層構造にしたほうがいいだろうし。なんにせよ１００の質問は質問を作り上げるだけで疲れ果ててしまう気がする。

スパイウェアはウイルスと同義じゃないが

　NHK総合のクローズアップ現代曰く：「スパイウェアは新しいコンピューターウイルス」ってちょっとまった。

　スパイウェアはspy(密偵)-ware(製品)、コンピューターウイルスは利用者の許諾を得ることなく勝手に自己増殖を目論むプログラムのことで、両者の定義は厳密には異なる。スパイウェアが自分のスパイという目的を達成する手段としてコンピューターウイルスを用いることが多い、と言うことであろう。

　と、突っ込みいれたところで、まあ小さな問題だけれども。

無断リンク禁止派に申し上げる

　そもそも www は、お互いに無断リンクされる世界を目指して構築された。

　その世界に情報を開示しておきながら無断リンク禁止を要求する人は、主張に自己矛盾を起こしているとしか考えられないのだが。

　お互いに無断リンク了承を前提としたからこそ www は発展しその恩恵を人類自身にもたらし続けられてきたわけで、その世界に飛び込んでおきながら無断リンク禁止を要求されると迷惑だし、蛇足すると空気も読めていない。

　リンクするには事前に許可を求める礼儀があっていいのではないかという意見もあるだろうが、よく考えてくれ。そんなことをしたらインターネットはサーチエンジン等のリンク許可申請で埋め尽くされてしまう。最初からそのようなことを想定してあるがゆえにリンクは無断が基本なのだ。

　無断リンク禁止を要求するのではなく、mixiに引っ越すなどして、きちんとしたパスワード(*1)をかけてくれ。でなければインターネットから去ってくれ。

*1 複雑な URI などはパスワードではない

リンク禁止警告へリンクする

大沢小学校ウエブページへのリンクを，許可なく設置することは一切お断りするhttp://www.sendai-c.ed.jp/~oosawael/chuui/

アクセス制限もかけずにwebに公開している以上、無視する。彼らは既にwebのリンク規定が存在することを知らないのだろうか。

１．リンクされたり流失されたりして拙い情報は、最初から公開するな。

２．無断リンクを拒否するならば、パスワードをかけろ。（おまけ：無断リンクを拒否するならば、googleに検索やキャッシュされるような間抜けな設定をするな。）

３．webについての勉強と理解が足りない。特になぜ「公開ページへの無断リンク禁止は自己矛盾の行為」なのか考えること。

教育を司る方々がこんな文言を許していて、本当に大丈夫なのだろうか。

参考：リンク禁止 - Google 検索、[リンク禁止] goo ウェブ検索結果、Yahoo!検索 - リンク禁止、ハイパーリンク - Wikipedia、マルチメディアと著作権、http://www.sendai-c.ed.jp/~oosawael/chuui/ - Google 検索

ブログに偏見～NHK週間こどもニュース～

１．ブログが今ブーム　→　ブームは1年半以上前から既に始まっている、少なくともココログ登場時かそれ以前には遡れるはず。

２．トラックバックは「見ましたよ」という足跡　→　足跡ならコメントで済む。スパムのトラックバックを推奨するつもりかと疑いたくなる。安易な気持ちでトラックバックすると怒る人もいるので注意しましょう。

３．個人情報は書かない　→　細心の注意を払って検討したうえで大丈夫なら書いてもいい。というか厳密に個人情報ゼロにしたら書けないことが多過ぎる。

４．実名では殆ど書かれない　→　そんなわけがない。またペンネームでも管理者の顔が割れていることは多い。まあ管理人などの情報を鵜呑みにするのは危険だが…。

ブログの情報同様、NHK週間こどもニュースの情報も鵜呑みにしないように気をつけましょう。

モヒカン族の種

　ちょっとした誤字脱字の恐ろしさを知っているので、私はモヒカン族ともお付き合いしておきたい。空気読めばかりでは付け込まれますから。国家安康、君臣豊楽に至っては誤字脱字ですらないのに付け込まれているし。

　インターネットは寧ろそういった誤字脱字などを含めたミスを互いに指摘訂正し合い質を高めていけることも本質の一つだろう。だからむしろ「空気を読め」という主張こそ空気が違うと感じるのだが。まあ些細なことにこだわり過ぎて本質を見失い優先順を違えているというのならまだ話は解るのだが。

　それにインターネットだから言語学者、言語マニア、資料性を重視する人々だっているわけだ。彼らの一部は、皆気付いているだろうという空気で放置されているミスから、重要な事実が曲解されて認知されてしまったケースが、現実にいくらでもあることを熟知している。空気を読めと主張されるのも結構ですがモヒカン族を気取る人の気持ちも読もう。第一インターネットをする人全員が人気を欲する人気マニアなわけがない、人気だけでモヒカン族を退治できると仮定して語るなんて素晴らしいですな。

　ズバリ結論は、この世にモヒカン族の種は尽きまじ、ってことです。

redefine URI - Uncontrolled Resource Identifier

All URI are free of copyright.

Japanese: 「URIの再定義 - 自由な情報資源住所」全てのURIは著作権フリーだ。

RE:ディープリンクについての考察

　送信者はディープリンクを前提に受け入れて送信するものなので、ディープリンクを張る者はディープリンクそのものに著作権違反を恐れる必要は無い。

　これはインターネットの設計思想そのものに対する挑戦であり、もしディープリンクに著作権違反の可能性を認めたら、インターネットは即死だ。インターネットはリンクが自由だからこそ発展しているのだ。これがなかったら検索業者とかどうすりゃいいんだほんと。ゆえにアドレスで特定の階層へのリンクを禁止すべきではない。

　「ディープリンクは著作権違反を犯す恐れがある」という主張を例えるならば、「広告を掲げておきながら、全国報道するなと主張している」ようなものだろうか。この問題、要は「送信者の自爆」である。

　アクセス制御はURIに依らずとも実現可能な手法があるのだから、著作者はそれを選択すべきだ。難しいと言うならば技術者に金を払って手法実現のサービスを購入するか、送信を諦めるべきである。

　ま、送信者が「リンクはトップページに、ディープリンクは禁止」という、無理な注文が通るという錯覚の蔓延、それが問題の核心だ。よって、この問題に関しては送信者への教育を徹底すべきなのだ、「ディープリンクされただけで著作権違反された気分になるような情報は、アクセス制御技術を用いずにネットで公開してはならない」と。

　（ただし一つだけ懸念がある。それはURIに「既に著作権が認められている情報」を埋め込むことである。例えば「http://古池や.蛙飛び込む.水の音/」のようなものである。とはいえこの場合は送信者に公衆送信権のフリー化義務を課し、ディープリンクされたら責任を負うのは送信者と取り決めればいいと思うのだが。）

　このエントリーはブログ著作権ガイド ［Blog Copyright Guide］: ディープリンクについての考察に反論するものです。

ViXカタログが～

　カタログを自作しても、カタログデータで示した元ファイルの拡張子がViXで対応してないと表示されないようだ、しくしく。

最小のjpegを手に入れたい

　カタログ用に画質をかなぐり捨てた最小のjpeg画像が欲しいが、どうすればよいのやら。240x180ドットで848バイトのものは出来たが、これは最小なのだろうか。うーむ。

opera8の解らない所

• 立ち上げて一時間ほどすると、突然接続が確立できなくなる。MS-DOSプロンプトのpingコマンドすら利かなくなるのだから、私の知識ではOSをリセットするしかない。何が原因なのだろうか。
• [芋牙]などで、リンクが右にはみ出ている。リンクでなくても起こるようだ。横長の改行禁止インライン要素が原因なのだろうか。

RSSリーダーと自作掲示板の相性

　例えばココログ新着情報をチェックするとなるとえらく大変です。まあこれはそもそも対象が巨大すぎるのでどんな手段を用いても大変ですが。

　最近考えているのは、掲示板との相性です。特に自分で複数設置する掲示板にはRSS出力機能をつけると、管理を容易にできるのではないかと考えています。まあメール通知機能の代用とも言えますが…。

　このエントリーはうぐいしゅの日記（仮）: RSSリーダーとサイトの相性に触発されたものです。

オンネット重複ファイルが気になる

　インターネット上には様々なデータが散乱しているが、データの単純な総計に比べて本質的な情報量はかなり少ない。世界中で注目される動画などはあちこちにコピーされて再配布されている。ここでは著作権問題はひとまず脇においといて、プロバイダの立場からこの現象を見てみたいと思う。

　プロバイダからすれば、重複データは容量の無駄である。バックアップの役割を果たす――という意見はここでは意味をなさない、なぜならプロバイダはそもそもどのデータに対してもバックアップをとっているので、バックアップも重複が生じて意味をなさないからである。

　もし大容量の重複データを重複情報に置換したらどうのだろう。重複情報は大抵重複データより遥かに軽量である。従ってサーバの容量を節約できることになる。これはサーバ上のデータが増大するに従って効果的になる。なぜならば人類が手動で生成するデータには限りがある一方、注目されコピーされるデータは重複され続けられるからである。

　もし疑うならば、テレビ業界をみてみるとよい。チャンネルが増大すると他局や同時放送を含めると、再放送の割合が増大しているであろう。

　グーグル、Gmailの容量を一気に2倍に--使用量に応じてさらに上乗せも - CNET Japanという記事を読んだ。もしかしたらgoogleは既にそういう戦略を取り入れているのではないかと考えた。事実は違うかもしれない。しかしそうだとしてもgoogleがどの程度データに重複を含み、それを生かすとどのくらいデータが削減可能なのかは、非常に興味がある。

　なおアホな造語を用いたタイトルは申し訳ない、この方面の用語には詳しくないので勘弁していただきたい。

通常アクセス怖い

　ACCS個人情報流出事件の判決があまりに曖昧なので、通常アクセスのつもりでもセキュリティノーガード戦法のトラップにひっかかる危険性が発生してしまう、とても恐ろしい社会になってしまいました。

　プログラム使ってPOSTリクエストを自動作成するのは技術者なら普通のことではないでしょうか、検索エンジンがwebページを収集する時はこのような方法を普通に行っていると思いますが。

　ところでこんな曖昧すぎて恐ろしい判決を出す判事は首にする合法で民主的な政治圧力をかけたいので、具体的な方法を知りたいところです。判事の就職に一番関わったのは最高裁裁判官でしょうか、うーん。

　まあ、まずは＠IT：個人情報保護法を論理的に読み解くに挙げられたnot（A and B）＝（not A） or（not B）程度を理解できない裁判官は全員クビですな。

今日の視点論点は低級だ

　インターネットが子供に有害情報を云々とぬかしているが、インターネットを家族に置き換えて視聴すれば、実に誤りだらけの論だということが解る。

　誹謗中傷金銭トラブルに拉致暴力フレーミング（論争）猥褻物などが問題だと言っているが、家庭でも誹謗中傷金銭トラブルに拉致暴力フレーミング（論争）猥褻物だらけじゃないか。何言っているんだ。学校友人地域メディアなど家庭をとりまく環境も同一だ。私は子供の頃に何度意味不明な誹謗中傷拉致暴力フレーミングを基に裁かれたか数知れず、人間として必要なものも高額で買えず（高度な意味での金銭トラブル）、自分自身に至っては猥褻行為がなければこの世に生まれることすら出来ない。

　はっきり言えば、インターネットのほうがずっとましだった。

平成教育再とライブドアと

　平成教育委員会の再放送が東海テレビである。

　東海テレビ | 週間番組表の2/11(金)15:00～17:30は平成教育委員会2004・絶対合格スペシャル!! 「たけし先生爆笑授業新傾向に珍解答続出!!頭の良くなる合格鍋に面白実験もあるヨ!!」 - goo テレビ番組ナビ［三重版］ - 番組ガイドだが、2/13(日)の19:28～19:58にあった平成教育2005予備校は差し替えられている。これは社長日記:2/8(火) ニッポン放送株35%取得が関係していると考えられる。

　フジテレビ系は度胸の狭さを露呈していると思うのだが。メディアがそんなことをしていて支持されるのか疑問である。

特許庁の山崎慎一を非難する

　特許番号2803236号のコピーであるこの文書が正しいものであるならば、私はこの特許に対する特許庁の山崎慎一の判断を強く非難する。こんな低レベルなものに特許なんか認めるな。特許法にも、技術水準の低い創作は保護しない旨のことが書いてある。

　こんな低レベルで自然な技術をいちいち気にしてたら、プログラムなんか一つも作れん。保護する知財より損なう知財のほうが膨大なクズ特許だ。山崎慎一と特許庁はなぜこんな日本の恥と損失を生んだのだ。

　ちなみにこの特許を簡単に言うと、「ヘルプボタンを押して調べたいボタンを押すと説明が出る」、という特許である。

NNN-Docネット依存特集の狡猾さに感心

　NNNドキュメントは実に巧みですな。

　ゲーム会社の「ネット依存は科学的に調査しなければならない」という発言の直後に、「ゲーム脳の恐怖」の森昭雄氏を持ってきたり（参考：斎藤環氏に聞く ゲーム脳の恐怖1[www.tv-game.com]）、ネットにいる精神病患者をもってきたり（ネットをする前から精神病のケース、ネットをしない精神病のケース、ネットをしなかったとしても精神病になったであろうケース、これらを調べなければ本当のところはわからないのは明白だし、第一ネットを使っているが正常な人のほうがずっと多い）、やりたい放題ですなぁ。

　とはいえ、日本の政治は非科学的見地でもって動くことも多いので、爆笑ものの規制が入る可能性は大きいでしょう。私自身も属しているとはいえ、ほんと日本はやっとれん国だ。

躾を検索してみよう

　ちょっとまて。

タックルと国債と根拠

　2004年12月13日放送のTVタックルちょっとまてぃ。

　なぜ財政赤字問題というサイトを紹介した。このサイトは1998年12月現在の大蔵省資料を元にしたと述べている。つまり6年もの誤差が貯まってきており、2003年度および2004年度末（2005年3月31日）予算のデータをもとにしていると述べているリアルタイム財政赤字カウンター (KH's web site)と比較すると、例えば日本全体の長期債務残高総額で250兆円前後もの差が出ている。

　まあ大問題という事には変わりないので、財政再建は急務だが。

　Google 検索: タックル http://ueno.cool.ne.jp/gakuten/network/fin.html で 検索すると何人か額の把握を誤ったのではないか、と心配になってくる。おせっかいだが。

　つまるところ、きちんとしたところにあるデータをきちんと読まなければ本当のことはわからない、という当たり前の結論に至るのみ。あ、財政再建課題は残ったままか。

RE:カントール

　まず第一章第六段落「私の疑問は、数を並べる～思えなかった。」に 百々さんは選択公理を拒絶していると感じました。

　次に第一章第七段落～第九段落からは、どうも対角線論法を誤解されている ような感じを受けました。対角線論法は「可算集合と実数に一対一対応が 存在しない証明」用の技術なのですが、百々さんの記述からは、 どうもそれとは違うものを感じます。

　そして第二章の第一段落でアトランダム試行を否定していますが、 対角線論法の元々の目的を、上記を参考にされれば、自ずと アトランダムでなければならないことが解ります。つまり 全ての並べ方を否定する必要があるから、整然と並べた場合だけを 論じるわけにはいかないのです。

　どうも一対一対応や濃度という概念がごっそり抜けているのが とても気になります。

人名.jpは酷いと考える

切込隊長BLOG（ブログ） ～俺様キングダム: ネットに広がる山本一郎さんと 登録開始から3年、日本語JPドメイン名は今…… を両方とも読んで考えて欲しい。 　さて私の本名は河内伸浩だ。既に本名は晒しているし隠したってスパム、ウイルス、流言などが減るメリットはないので堂々と書く。その「河内伸浩」だが、早めに登録しないと他人に占領されてしまうのだろうか。だが私が登録すると、もし他に河内伸浩が存在したらどうするのだろうか。河内伸浩に似た名前とトラブルを起こすことになるのだろうか。河内姓に伸浩という名前は禁忌となるのであろうか。 　この世には凄まじい数の名前が必要とされている。 　これは人名だけに止まらない。地名、生物名、ペットの名前、仮想人物名、商標、法人名、ニックネーム、物質名、概念、それらは辞書に載っているものの何万倍、何億倍あるか知れたものじゃない。そしてそれらは日々蓄積されてゆく。そして… 　インターネットは忘れない 　…全てのアーカイバーから消去される日まで、徐々に検索され辛くはなっていくだろうが。しかしその中で大量の名前がかち合ってゆく。インターネット級の情報量からみて単純な名前は、それが例え名付け親が充分にユニークだと願おうとも、何万もの異なるものを指すようになり、そして次第に元祖派と知名度派で争ったりするようになる。もし人名.jpで敗れた人はどうしろというのだろう、親（等）から頂いた或いは押し付けられた名前が、インターネット上では他の人（故人や仮想人間などを含む）に奪われたら、一体どうしろと言うつもりなのだろう。 　人名を巡る戦い起こるのか…

プラシーボは深遠なり

　もなみ９歳(青い悪魔)：2004年12月12日 偽薬効果なんかどーでもいい、大切なのは愛、久々に大型のオトボケを放っていらっしゃる。あまりにも堂々過ぎるから、どうでもいいと思いそうになってしまう。

　まあ、気分というものはまだまだ深遠な謎であろう。気分が悪くなる妄想を自らに課せば気分を悪く出来るし、場合によってはそれで嘔吐できると思われるので、プラシーボは嘔吐に多大な影響がありそうだし、その一方で気分だけで複雑骨折を起こす場合なんて（無視できるほどしか）無いだろうし。

　おそらくプラシーボ論は数人がサイトでちょこちょこ書くだけで語り尽くせるほど単純ではないだろう、プラシーボという言葉が広まる前と後では少し違うはずだし…。

　以下真面目に書くと数百メガバイト使っても語りきれない気がするので、諦めてここで終わりとします。

テレビボードが不安定

　とあるハングアップをきっかけにグラフィックカードが検出できなくなった。ドライバは全部でなんだっけ。もうOSの再インストールからやるのは面倒だから、システムのバックアップCDから全部windowsディレクトリにコピーしてみるか…。

本日の検索

　キレるべき 、予定調和 、現実という仮想 、勉強の弊害 -受験 、"強制幸福" OR "幸福強制" 、ゲーム クリアできればいい 、ゲーム クリアできるとしても 、ゲームで 言論の自由

perlxsで苦闘中

　VC++もh2xsなどもあるしperl -V:makeはnmakeなのに、なんでnmakeを発動させるとlink （略）perl58.lib（略）でこけるんだ…。

ランダムな順列の疑惑

　最後の項が不動である場合が現れないアルゴリズムが蔓延してるような気がしてきた。ちょっと待て。

　例：[1]～[9]　→　[2]～[8]、[1]、[9]　という変換が起こる確率が0。

　例：[1][2]　は常に　[2][1]　となり、[1][2]のままでいることができない。

乱数のビット計算

　良質の乱数のビットを数える、またはそれに相当する実装であって、高速なものをどうやって作ったらよいのか…うーむ。

　メルセンヌツイスタのシフト演算とビット数えでのシフト演算くらいは、なんとか組み合わせて高速化できないものか…。

無作法なwave裁断用スクリプト

　無作法なwave裁断用スクリプト、言語はperl、説明や保証は全て無し。

#!/usr/local/bin/perl
{
    $arg = shift @ARGV;
    $path = 'D:/tool/WavRec';
    if($arg eq 'wtc'){    #wave tail cut
        &wtc(@ARGV);
    }elsif($arg eq 'wbp'){    #wave bound pickup
        &wbp;
    }elsif($arg eq 'wbu'){    #wave bound use
        &wbu;
    }
}

sub wave_size{
    local (*FILE) = @_;
    my ($size);
    seek FILE, 40, 0;
    read FILE, $size, 4;
    return (unpack 'L', $size);
}

sub wave_resize{
    local (*FILE, $size) = @_;
    seek FILE, 4, 0;
    print FILE pack 'L', ($size + 36);
    seek FILE, 40, 0;
    print FILE pack 'L', $size;
    close FILE;
}

sub wave_print{
    my($wave, $file) = @_;
    my $size = length $wave;
    local *FILE;
    open FILE, ">$file";
    binmode FILE;
    print FILE (
        pack 'A4LA8LSSLLSSA4L',
            'RIFF', ($size + 36), 'WAVEfmt ',
            16, 1, 2, 44100, 44100 * 4, 4, 16,
            'data', $size
    );
    print FILE $wave;
    close FILE;
}

sub wtc{    #wave tail cut
    foreach$file(@_){
        open FILE, "+<$file";
        binmode FILE;
        $size = &wave_size(FILE);
        print $size;
        seek FILE, 4, 0;
        print FILE pack 'L', ($size + 36);
        truncate FILE, 44 + $size;
        close FILE;
    }
}

sub wbp{    #wave bound pickup
    my($time) = (@ARGV, 5);
    $time = $time * 44100 * 4;
    my($wav, @bound) = split /[\s\n]+/, (join '', <DATA>);
    foreach(@bound){
        $_ = /(\d+)[^\d](\d+)/;
        $_ = ($1 * 60 + $2) * 44100 * 4;
    }
    unshift @bound, $time;
    open WAV, "<$wav";
    binmode WAV;
    $size = &wave_size(WAV);
    push @bound, $size - $time;

    $num = 105;
    foreach$bound(@bound){
        seek WAV, 44 + $bound - $time, 0;
        read WAV, $data, $time * 2;
        print STDERR "/$bound $num/";
        &wave_print($data, "$path/__$num.wav");
        $num += 10;
    }
}

sub wbu{    #wave bound use
    my($time, $buffer) = (5, 1024 * 1024 * 4);
    $time = $time * 44100 * 4;
    my($wav, @bound) = split /[\s\n]+/, (join '', <DATA>);
    foreach(@bound){
        $_ = /(\d+)[^\d]+(\d+)/;
        $_ = ($1 * 60 + $2) * 44100 * 4;
    }
    open WAV, "<$wav";
    binmode WAV;
    $size = &wave_size(WAV);
    push @bound, $size - $time;

    $num = 110;
    $before = $time;
    foreach$bound(@bound){
        unless(open NUM, "+<$path/__$num.wav"){
            $num += 10;
            $before = $bound;
            next;
        }
        binmode NUM;
        my $num_size = &wave_size(NUM);
        seek NUM, 44 + $num_size, 0;
        seek WAV, 44 + $before + $time, 0;
        for($locate = $before + $buffer + $time * 2; $locate < $bound; $locate += $buffer){
            read WAV, $data, $buffer;
            print NUM $data;
            printf STDERR " %d_%.0f", $num, ($size - $locate) / $buffer;
        }
        read WAV, $data, $bound + $buffer - $locate;
        print NUM $data;

        $num += 5;
        open TAIL, "<$path/__$num.wav";
        binmode TAIL;
        my $tail_size = &wave_size(TAIL);
        my $total = $num_size + $bound - $before - $time * 2 + $tail_size;
#        print "\n$before $bound $time $num_size $tail_size//";
        seek TAIL, 44, 0;
        read TAIL, $data, $tail_size;
        print NUM $data;
        close TAIL;

        &wave_resize(NUM, $total);
        $num += 5;
        $before = $bound;
    }
    close WAV;
}
__DATA__
D:\tool\WavRec\726meikyoku.wav 3:10 6:10 9:20 15:0 15:50 20:55 27:20 30:50 36:30 46:30 51:0 62:0 68:20

アンチ・ごっごる

　ごっごるの検索でトップを取ろう、という検索で目立つ競技がSEO コンテストルール - SEO-Associationで行われているらしい。私はこのような実験に不快感を持つ。

　無視するのが普通だが、私くらいはこうやって反感を表明してみよう、と考えた。もしまかり間違って上記のコンテストで入賞してしまっても、商品を受け取ったり歓喜を表明したりせず、放言して無視しておこうと思う。

　まあ問題なのはgoogleの検索順位付けが人為的操作に弱いところにあるのだが、人為的操作のない検索順位を尊重することができれば、それは人類自身の財産になると思うんだがなぁ……。

perlのシフト演算子

prompt>perl -e "use integer;printf'%8x %8x',0x80000000>>1,0x80000000*2;"
c0000000        0
prompt>perl -e "printf'%8x %8x',0x80000000>>1,0x80000000*2;"
40000000 ffffffff

　16ビット非負整数の演算結果「40000000 0」にならん、どうすべきか……。

wavツール界の疑問

　チャンク……つまりwavファイル内データ塊のサイズをちゃんと一つずつ扱うフリーウェアは、少ないのだろうか。ああ、また別チャンクがぐちゃぐちゃに混じってる……。

非接続使用可能法が欲しい

　あらゆる電子機器やソフトウェアが「ネットに繋げないと認証できないので使えません」という社会になったら嫌だ。某ソフトウェアなどは、ネットにつないだ瞬間からウイルスやワームなどの温床になりそうだから、使用はローカルに限りたい、というか、スパイウェアのような気もするのでオフライン環境に閉じ込めたい。

　なので、「ネットが不要な機能はネットに接続しなくても使用できるようにしなくてはならない」という法規制などの、何らかの歯止めが欲しい。

DDEで苦闘中

　なんでUndefined subroutine &main:: called at D:/usr/local/site/lib/Win32/DDE/Callback.pm line 46.を吐いて落っこちるのか解らん……。

#!/usr/local/bin/perl
#graphics classification supporter with gv, shift jis code
#画像分類 gv用
#Win32::DDE -> http://www.bribes.org/perl/ppmdir.html ,
#ppm install http://www.bribes.org/perl/ppm/Win32-DDE.ppd
{
    use Win32::DDE::Client;
    use Tk;
    my $mw = MainWindow->new;
    $mw->title('画像分類支援gcs');



    $history = $mw->Scrolled('Listbox',
        -scrollbars => 'e',
        -height => 10,
        -selectmode => 'single',
        -font => 'System'
    )->pack();



    $history->insert('end', qw/gv 日本語表記 テスト red yellow green blue gray 9 10 11 12/);
    $history->bind('<Button-1>', sub{
        $command = $history->get($history->curselection());
        $label->configure(
            -text => $command,
        );
        if($command eq 'gv'){
            &gv_start();
        }
    });



    $entry = $mw->Entry(
        -font => 'System',
    )->pack();



    $label = $mw->Label(
        -font => 'System',
    )->pack();



    $all = $mw->Scrolled('Listbox',
        -scrollbars => 'e',
        -height => 10,
        -selectmode => 'single',
        -font => 'System'
    )->pack();
    $all->insert('end', qw/red yellow green blue gray 日本語表記 テスト 8 9 10 11 12/);
    $all->bind('<Button-1>', sub{
        $all->configure(
            -background => $all->get($all->curselection())
        );
    });

}
MainLoop();


sub gv_start{
    system "command /c d:\\tool\\gv\\gv.exe /DDE";
    sleep 1;
    $gv = new Win32::DDE::Client('GV', 'Display');
    die "Unable to initiate conversation" if $gv->Error;
    $gv->Execute('[FileOpen("C:\WINDOWS\花見.bmp")]');
#本当は defined ($hesays = $gv->Request ('DIBRequest')) ||
#die "DDE request failed";のようなことをしなければならないが、はしょってます。
#    $gv->Disconnect();
#   $Client->Poke ('ITEM2', 'VALUE2') ||
#         die "DDE poke failed";
}
__END__

マイPCのくだらない2つの謎

　ハードディスク1号の調子が悪そうなので2号を購入、しばらくすると1号が昇天された。念のために3号を購入。しばらくして2号の挙動がおかしくなったが、これは2号の設定をスレーブにしたまま強引に動かしていたためだった。問題なのは1号で、しばらくして冗談半分に繋げてみたら復活した。一体何が起こったのだろう、あんなに起動に失敗していたのに。これでは3号の立場は一体。

　ハードディスク2号上のビデオキャプチャが起動しなくなったので、ハードディスク1号にビデオキャプチャをインストールしたら起動した。よくわからないままハードディスク2号に接続を戻したら、2号上のビデオキャプチャが起動できた。なぜなんだ。

perlでメルセンヌツイスタを

　perlでメルセンヌツイスタを使いたいのだが、math::random::mt::1.xxは良質なのだろうか、そして0～(2^n)-1の整数の乱数を、もっと言えばビット列を高速に得たい場合に使えるのだろうか。前者はコードを検証すればいいかもしれないが、どうも後者は難しいようだ。

　もしかすると、予めcで乱数ビット列を生成しておいて、それをperlで読み込むのがいいのかもしれないが、perlのみでビット列を返す関数を記述するのもいいかもしれない。

　それにしても、野球のリーグはどうなるのだろう。

CGIが狙われるというのだが…

　Yahoo!ニュース - コンピュータ - Scan :CGIに任意のパラメータをPOSTできる汎用ツールが登場、正直言ってこの記事だけでは取り上げたツールの重要性は理解できない。perlスクリプトでも同様のことは容易に可能だからだ。一つ考えられるとすれば実行速度だが、それも意味を成すほど差が出るのだろうか。

　パラメータに任意のものを渡すことなんて、ずっと前から、やろうと思えば造作も無いことだ。このツールの存在に関わらずCGIの脆弱性に留意しなければならない分野は存在している。ただこのツールがCGIを狙った攻撃をぐっと強力にするならば、このニュースは意味の或るところなのだろうが……。

join grep map list

　perl5にて。join 連結子 grep {$_} map {出力式} (添字など);、なんかどうもすっきりしない。grepかmapどちらか不要なんじゃないかと思うんだが……、いかん、どうも頭の回転が鈍っているらしい。