どんぞこ日誌

* [CGI] Wmidiの修正

　wmidi.cgiは指定したアドレスが存在していることを確認してから曲をつくるのですが、ドメイン名に数字が含まれていると無条件でエラーが出てしまってました。今は直っています。＞Wさん、ご指摘ありがとうございました。

* [Perl] Perlの中でRubyを利用する

　で、wmidi.cgiのソースを見てもらいますと、ページのヘッダを取得する部分が美しくないのでNet::HTTP等のモジュールを使いたいところです。でもモジュールをインストールするのが面倒だったので代わりにInline::Rubyをいれてみました。Inlineは、Perlのスクリプト内に他の言語を入れられるようにするモジュールです。これでRubyのnet/httpを呼び出せます。残念なことに私の環境では関数の定義がうまくいかないので、evalで直接記述してみます。下記は簡単な使用例です。

use Inline::Ruby qw(rb_eval); 関数のインポート

$host   = 'donzoko.net';
$path   = '/index.html';
$status = rb_eval qq{ # Ruby Code

  require 'net/http'
  response = nil
  Net::HTTP.start('$host'){ |http|
    response = http.head('$path')
  }
  response.code

};

これで$statusに200が入っています。InlineシリーズにはCやJava、Python、Baisc等々色々あります。