半角カナから全角カナに変換

Jcode.pmを使用して半角カナから全角カナに変換したいのです。
こちらの過去ログを拝見し、以下のようなロジックを記述したのですが、
”Undefined subroutine &Jcode::h2z_euc called at test_jcode.pl line 7.”というエラーが出てしまいます。


use Jcode;
$line = 'アイウエオ';
$ato = &Jcode::h2z_euc(\$line);
print $ato, "\n";

どなたかご回答よろしくお願いいたします。

No.8 ベストアンサー 回答者： alicia-y 回答日時： 2002/01/28 11:12

$line に入っている文字コードの判別に失敗しているのかもしれません。

Jcode->new($line,'euc')->h2z->sjis;
のように指定すると上手くいきませんか？

sjis にする必要が無い場合は
Jcode->new($line,'euc')->h2z;
でいいはずです。

この回答へのお礼

(1)"アイウエオ"
(2)"ア\nイ\nウ\nエオ"
(3)"アイウエオ"

(2)や(3)だと半角から全角へ変換されるのですが，
(1)だとうまくいきません。

先輩に聞いたところ，Oracleで同じような事をしてくれる関数があるようなので、そちらを試してみることにします。
多数の回答ありがとうございました。

お礼日時：2002/01/30 15:28

No.7 回答者： alicia-y 回答日時： 2002/01/25 21:17

> 全角から半角への変換はうまくいったのですが、

これは、Jcode->new($line)->z2h->euc; としたと言うことですか？
z2h を使わないと全角から半角へは変換しないはずですが。

> 半角から全角への変換がうまくいきません。
$line に半角カナが入っているんですよね？
Jcode->new($line)->h2z->euc;
私が試した限りではこれで上手く行くんですけど。

> 原因として、半角カナがeucである事だと考えられるのです。
> そこで、euc から sjis　へ変更しようとしたのですが，うまくいきません。
sjis に変換するには、
Jcode->new($line)->sjis; です。
半角－＞全角変換も同時にする場合は
Jcode->new($line)->h2z->sjis; です。

この回答への補足

>これは、Jcode->new($line)->z2h->euc; としたと言うことですか？

そうです。すみません。説明不足で…

Jcode->new($line)->sjis;

上記を試してみましたが，sjisへ変換できないのです。

変換さえできればうまくいくと思うのですが…

補足日時：2002/01/28 09:20

No.6 回答者： alicia-y 回答日時： 2002/01/25 13:22

use Jcode;

$line = "アイウエオ";
$s = Jcode->new($line)->h2z->euc;
print $s,"\n";

で上手くいきませんか？

この回答への補足

全角から半角への変換はうまくいったのですが、
半角から全角への変換がうまくいきません。

原因として、半角カナがeucである事だと考えられるのです。
そこで、euc から sjis　へ変更しようとしたのですが，うまくいきません。

何が問題なのでしょうか。

補足日時：2002/01/25 20:47

No.5 回答者： 2nd 回答日時： 2002/01/25 11:16

そういえば、私も &Jcode::h2z がうまく使えなかった記憶があります。

で、結局以下のようにしました。

use Jcode::H2Z;
$line = 'アイウエオ';
&Jcode::H2Z::h2z(\$line);
print $line, "\n";

Jcode モジュールをインストールしたのなら、Jcode::H2Z はインストール
されているはずなので、これでできるのではないかと。
Jcode.pm を読むと、Jcode::h2z って Jcode::H2Z::h2z を呼び出していた
だけだったので。

この回答への補足

試してみましたが，出来ませんでした。

$lineに全角カナをいれると全角カナのまま
半角カナをいれると半角カナのまま出力されてしまいます。

Jcode::convertを使用して現在の文字コードを出力させたところ、うまく出ましたので，Jcodeモジュール自体は正しくインストールされているはずなのですが。。。

補足日時：2002/01/25 12:01

No.4 回答者： alicia-y 回答日時： 2002/01/24 23:10

Jcode.pm には h2z_euc は無いみたいですが、

use Jcode;
$s = Jcode->new($s)->h2z->euc;

で出来ませんか。

この回答への補足

試してみたのですが，変換したい文字列をどこに記述すればよいのかわかりません。
教えてください。

補足日時：2002/01/25 09:30

No.3 回答者： slackware 回答日時： 2002/01/20 01:53

$ato = &Jcode::h2z_euc(\$line);

の部分を
$ato = &Jcode::h2z(\$line);
に変更してもダメでしょうか.

この回答への補足

$ato = &Jcode::h2z(\$line);
$ato = &{$Jcode::h2z{'euc'}}(\$line)

上記のように、インターネットなどで記載されている使用方法は全てやってみたのですが，うまくいかないのです。
やはりjcode.plでないとだめなのでしょうか。

補足日時：2002/01/22 15:34

No.2 回答者： Min_2 回答日時： 2002/01/17 14:49

Jcode.pmは使ったことがありませんでした。

Perlのバージョン等は大丈夫なのですよね？

参考URL：http://openlab.ring.gr.jp/Jcode/index-j.html

この回答への補足

バージョンは、5.6.630（最新）です。

Jcode.pmに移行するには以下の２点を変更するだけで、ほぼいけるという記述をインターネットで見つけたのですが，できません。

(1)require jcode.pl　→　use Jcode;
(2)jcode::　→　Jcode::

Jcode.pmでは出来ないということであれば、jcode.plを使用使用とは思っているのですが。。。

補足日時：2002/01/17 15:03

No.1 回答者： Min_2 回答日時： 2002/01/17 11:11

jcode.plというライブラリを使用するのですよね？

ならば

require "jcode.pl";
$line = "アイウエオ";
&jcode'h2z_euc(*$line);
print "$line\n";

でイケると思うのですが。。

この回答への補足

jcode.plではなく、jcode.plの後継モジュールJcode.pmでは出来ないのですか。

出来ないのであればjcode.plでやります。。。

補足日時：2002/01/17 13:57