【235】CGI で Jcode を使う…

　今日は、さらっとしたネタを書くにとどめる。

　開発者なら、迷わず Encode でしょうけど、コーディングと無縁の仕事をして
いる 1ユーザーが『コード・ファクトリの最新トピック』に追いつく…というの
は、やはりちょっと無理。なので、日本語処理では当面 Jcode を使うつもり。

　自分的には、Jcode の使い方を覚えたのも、つい最近…という認識だし。

　で、 CGI で Jcode を使う場合だけど、Jcode は『標準モジュール』ではない
ので、通常はプロバイダのサーバ上にはインストールされていない。そこでユー
ザーの CGI パスに Jcode.pm と CGI スクリプトを一緒に置いて、スクリプトに


use Jcode;


…と記述すれば、Jcode が使える。 要は、カレントディレクトリで CGI を実行
する、という使い方になる。しかし、カレントディレクトリを別な場所にしたい
時もある。

　で、苦肉の策として、こんな方法を思いついた。。。↓

#!/usr/local/bin/perl

use strict;
use warnings;

# Jcode のパスを @INC に追加(既知の知識だけで何とかするための苦肉の策)
# $jpath を、それぞれの実行環境に合わせて指定する必要がある…
use Cwd;
BEGIN {
    my $restore = getcwd();
    chdir;
    my $cwd     = getcwd();
    my $jpath   = "$cwd/cgi";  # /home/user/cgi に Jcode がある場合
    unshift(@INC, $jpath);
    chdir $restore;
}
use Jcode;

# 以降、何らかの処理…

__END__

次のページを参考にしました。↓

●Perl5編　第３９章　BEGIN と END

http://www.geocities.jp/ky_webid/perl5/039.html

2007-08-16 libプラグマ

■[Perl]libプラグマ　コンパイル時に@INCを操作

http://d.hatena.ne.jp/minesouta/20070816/p1

※ 今回から、はてな記法(スーパーpre記法)の
『ソースコードを色付けして記述する(シンタックス・ハイライト)』

http://hatenadiary.g.hatena.ne.jp/keyword/%E3%82%BD%E3%83%BC%E3%82%B9%E3%82%B3%E3%83%BC%E3%83%89%E3%82%92%E8%89%B2%E4%BB%98%E3%81%91%E3%81%97%E3%81%A6%E8%A8%98%E8%BF%B0%E3%81%99%E3%82%8B%EF%BC%88%E3%82%B7%E3%83%B3%E3%82%BF%E3%83%83%E3%82%AF%E3%82%B9%E3%83%BB%E3%83%8F%E3%82%A4%E3%83%A9%E3%82%A4%E3%83%88%EF%BC%89

…を使ってみた。いいですね、これ。

Permalink | コメント(0) | トラックバック(0) | 12:29