君はこの曲を聴いたか！？

　貴方はご自分のサイトがどんな音を奏でるかご存知だろうか？何、知らない？それでは、下のフォームにURIを入れてみなされ。たちどころにそのページが音を奏でてくれるじゃろう！これぞ "Hyper Automatic Web Site Anlyzing Music Maker" ！！

略して Wmidi 。

生成された曲はご自由にお使い下さい。でも、誰かに「私の曲を盗用した！」とか言われても、当方一切関知できませんので、何卒よしなに。

諸注意

• httpで始まるものにしか対応しておりません。
• 存在しないページ、極端に長いアドレスはエラーになることでしょう。
• それ以外にも何らかの理由でエラーになるページがあるかもしれません。
• ちなみに、このページのアドレスを入れてもエラーになります。
• どの曲もやたら物悲しそうな感じがするのはたぶん気のせいです。聴いているうちに、ほら、なんだか笑い出したくなりませんか？
• どの曲も似たり寄ったりに聴こえるのはたぶん気のせいです。聴いているうちに、ほら、ジャズあり、クラシックあり、ポップスあり、落語ありで多種多様な気がしてきませんか？
• っていうか、シェーンベルクっぽくないですか？…ないですか、そうですか。
• どの曲の楽器もチェレスタにしか聴こえないのはたぶん気のせいです。心の耳を欹てれば、ほら！パイプオルガンやディストーションギターに！…ごめんなさい、無理がありました。（後ほど楽器指定可能にします）→なりました。
• "Wmidi" が "Hyper（略）" の略になっていないですって？心の目で略してください。
• ご利用になられた如何なる結果にも製作者は責任負いかねますので、よろしくです。
• 大変重要なことを忘れてました。音源が無いと曲は聴けません。あしからず。

ソース

wmidi.cgi

このCGIには標準モジュール（5.005以降）以外に、MIDI-Perlモジュールのパッケージが必要です。CPAN.pmでインストールできない方は、上記のモジュールをCGIと同じディレクトリに設置してください。

cgi_path/MIDI     / *.pm
         MIDI.pm
         wmidi.cgi

また、v1.02からDigest::MD5を使っています。古いPerlではDigest::MD5が入っていない場合がありますが、この場合はwmidi.cgiの該当部分をコメントアウトしてください（2箇所）。

あとは入力フォームを用意して、input type="text" name="url" にすればOK。だぶん。