ベストアンサー

Jcodeモジュールを使うのが定石でしょうか？　半角カタカナ→全角カタカナ変換

2007/06/18 09:26

perlで半角カタカナを全角に変える場合、Jcodeモジュールを使いますが、現在ソースでuse utf8を使っているので、すべて use Encodeのモジュールで半角カタカナを全角カタカナに変えることがしたいのですが、Jcodeモジュールを使うのが定石でしょうか？

bazax
お礼率5% (12/228)

Perl
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

spacech5p2
ベストアンサー率26% (9/34)

2007/06/18 09:28 回答No.1

Jcode が一般的だと思います。自作するのも手ではありますが、大変だと思います。

関連するQ&A

JcodeモジュールとEncodeモジュール

以下、Perl5.8でJcodeモジュールを使った場合とEncodeモジュールを使った場合の違いについて、知りたいです。 ※そもそもこのモジュールは同時に使ったらだめなのでしょうか？ use strict; use utf8; use Jcode; use Encode; my $dat1 = "あイ卯(1)Iⅰ"; Jcode::convert(\$dat1, "utf8"); my $dat2 = "あイ卯(1)Iⅰ"; $dat2 = Encode::encode("utf8", $dat2); 文字コード変換の正しい使い方が知りたいです。
Jcodeによるカタカナ→ひらがな変換

初めて投稿させていただきます。 Perlで半角カタカナをひらがなに変換しているのですが、以下のような文字列は文字化けが起こってしまいます。オウシュウシイイオカコシオウアカサカキョウサカエオオスケ　オオキシキキョウソウカシなんとなく法則がありそうなのですが、それがどういう理由なのかがわかりません。たとえば、「アカサカ」は「鐔縁酋鐔誌酋」と化けてしまいます。しかし、「アカサカチョウ」とした場合は化けません。以下のようなコードを作成しています。 use Encode; use Jcode; $iline="文字列"; Encode::from_to( $iline, 'CP932', 'utf8'); my $str = Jcode->new($iline)->h2z->tr("ァ-ン", "ぁ-ん")->utf8; $strをファイルに出力といった感じです。文字コードの関係が弱いので、何をどうしたら良いのか検討がつきません。何か参考になることを教えていただければ幸いです。 Perlのバージョン5.8.5 サーバー　Linux系
半角カタカナ→全角カタカナへの変換

perlプログラムで半角カタカナ→全角カタカナへの一括変換をしたいのですが、なにか良いプログラムを教えてください。例）ｱｯﾌﾟﾙﾏﾝｽﾞ→アップルマンズに変換したい。
半角カタカナ→全角カタカナ変換がうまくいきません。

お世話になっております。フォームから入力された文字を、「半角カタカナ→全角カタカナ」変換したいのですがうまくいきません。コーディングは以下の通りですが、問題の箇所がわかりません。どなたかご教授ください。なお、jcode.plは、最新のものを使っています。 #↓=============================================== ##### フォームデータ受け取り if ($ENV{'REQUEST_METHOD'} eq 'POST') { 　read( STDIN , $buffer , $ENV{'CONTENT_LENGTH'} ); } else { 　$buffer = $ENV{'QUERY_STRING'}; } # 文字コードを正確に取得するために，全ての送信データをいったん文字コードチェックする $buffer1 = $buffer; $buffer1 =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; $kcode = &jcode::getcode(*buffer1); @pairs = split(/&/ , $buffer); ##### フォームデータのデコード、漢字コードをsjisに変換 foreach $pair (@pairs) { 　($k,$v) = split(/=/,$pair); 　$v =~ tr/+/ /; 　$v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; 　&jcode'convert(*v,"sjis",$kcode); 　# 半角カナを全角に変換　if($kcode eq 'sjis') { 　　&jcode::h2z_sjis(\$v); 　} 　if($kcode eq 'euc') { 　　&jcode::h2z_euc(\$v); 　} 　if($kcode eq 'jis') { 　　&jcode::h2z_jis(\$v); 　} 　$in{$k} = $v; } #↑=============================================== （なお、全角スペースは、半角スペースなどに変更願います。）よろしくお願いします。
perl jcode::convert 半角>全角

perlでjcode::convertで半角を全角に変換すると正しく変換される時とされない時があります。例えば、 sample1.plとsample2.plの my $message = 'の次の「ハンカク」の4文字は半角の文字です。 (注)ここにアップロードすると全角で表示されてしまいます。　　この4文字を半角にして確認してください。 sample1.plではこの4文字が全角に変換されるのですが sample2.plではこの4文字は半角のままです。なぜ全角に変換されないのでしょうか。 (Windows7, ActivePerl v5.16.3) ---sample1.pl------------ require "jcode.pl"; my $message = 'ハンカク文字は使えるかな？'; jcode::convert(\$message,"sjis","", "z"); print "$message\n"; --------------- ---sample2.pl------------ require "jcode.pl"; my $message = 'ハンカク文字'; jcode::convert(\$message,"sjis","", "z"); print "$message\n"; --------------- なお、どちらも以下のようなメッセージが表示されています。これは何を意味しているのでしょうか。 defined(%hash) is deprecated at C:/Perl64/site/lib/jcode.pl line 684. (Maybe you should just omit the defined()?) defined(%hash) is deprecated at C:/Perl64/site/lib/jcode.pl line 693. (Maybe you should just omit the defined()?)
Jcode.pmでの半角カナ→全角カナ変換

Webフォームから取得したデータに半角カナが含まれていた場合の文字化け対策として、Jcode.pmを使用して、下記のようにEUCに変換しています。 use Jcode; $euc_string = jcode($form_input)->h2z->euc; 原理的には間違ってはいない筈ですが、ほとんどの場合、$form_inputの文字コードの判別に失敗（恐らく半角カナをEUCと誤認）し、文字化けしてしまいます。誤認しないように、下記の様に記述すれば、正しく全角カナに変換してくれます。 use Jcode; $euc_string = jcode($form_input,"sjis")->h2z->euc; ただ、入力コードがシフトJISとは限りませんので、この記述は好ましくないと思っています。半角カナの文字化けは、webフォームを作られた方なら皆さん経験されていると思うのですが、どうされているのでしょうか？ Jcode.pmの文字コード判別は、半角カナが混じっていた場合、かなり長い文字列でないと判別に失敗するようなので、フォームで短い文字列（名前等）を入力させて処理させた場合、ほとんど上手く動かないようなのですが？
半角→全角変換

数値、記号、カナのすべてを半角から全角に変換したく Encode::JP::H2Zを利用しサンプルプログラムを書いてみました。セーブは、s-jisで行っているのですが以下のコードを試しましたがまったく変換されません。何処がいけないのでしょうか？以下を実行すると、 h2z: 012ABCabc!@#ア??ガダパ h2z: となってしまいます。 #!/usr/bin/perl use Encode; use Encode::JP::H2Z; my $str_h = ' 012ABCabc!@#アイウガダパ'; my $str_2 = '　０1２ＡbＣａｂｃ！@＃アイウガダパ'; my $char_conv; $char_conv = Encode::encode("euc-jp", $str_h); Encode::JP::H2Z::h2z(\$char_conv); $char_conv = Encode::decode("euc-jp", $char_conv); print " h2z:" . $char_conv . "\n"; $char_conv = Encode::encode("euc-jp", $str_h2); Encode::JP::H2Z::h2z(\$char_conv); $char_conv = Encode::decode("euc-jp", $char_conv); print " h2z:" . $char_conv . "\n";
全角から半角に変換する

Javaで、文字列の中に全角があれば単純に半角に変換するような処理をしたいです。具体的には、次のような文字列があった場合、以下のように変換したいです。＜変更前＞あ亜アアaａAＡ1１%％＜変更後＞ア亜アアaaAA11%% つまり、以下のようにしたいです・全角ひらがな→半角カタカナ・漢字：何もしない・全角カタカナ→半角カタカナ・半角カタカナ：何もしない・半角アルファベット→何もしない・全角アルファベット→半角アルファベット・半角数字→何もしない・全角数字→半角数字・半角記号→何もしない・全角記号→半角記号上記のように書くと複雑に見えますが、要は基本的に半角に相当する文字がある場合には半角にしたいだけです。Googleで探してみましたが、Javaで標準で上記のような処理を出来るようなメソッドを見つけることができませんでした。このようなメソッドは標準で存在しますでしょうか？自作する場合、いくつかアプローチがあると考えられますが、最もパフォーマンスを速くしたい場合にはどのような作り方にした方がよいでしょうか。お手数ですが、宜しくお願いします。 <追伸> プレビューで見たら、半角の文字が全角に自動的に変換されてしまいました。。例文からはわかりにくいかも知れませんが、宜しくお願いします。。
全角英数字を半角英数字に変換したい

全角英数字を半角英数字に変換する方法を教えて下さい。 $data =~ tr/０-９ａ-ｚＡ-Ｚ/0-9a-zA-Z/; 以上のようにした場合、J-perl意外では望みどおりに変換されません。 jcode.plをつかって全角英数字を半角英数字に変換する方法があると、書かれていた方がいましたので、できればjcode.plをつかった場合の具体的なスクリプトの書き方を教えて下さい。よろしくお願いいたします。
Jcodeで変換できません。。。

下記のCGI（文字コードはutf-8）を作成したのですが、正常に表示されません。～を上手に判定できていないということでしょうか？？？また、もし、正しく変換できないのであれば、Jcodeで変換できない文字の一覧などあれば助かります。分かる方、何卒、宜しくお願い致します。 #!/usr/bin/perl print "Content-type: text/html;charset=Shift_JIS\n\n"; $str = "１～１０"; use Jcode; Jcode::convert( \$str,"sjis","utf8"); print $str; 表示された結果１?１０となりました。
更新クエリで半角カタカナのみ全角カタカナにする方法

半角アルファベットと半角カタカナ交じりのテーブルのデータを更新クエリで半角カタカナのみ全角カタカナにする方法はありますか？ UPDATE テーブル1 SET [テーブル1].test = StrConv([テーブル1]![test],4); これだと全てが全角になってしまいます。
エクセル　関数で全角カタカナを半角にしたい

エクセル初心者です。人からもらったデータなのですが、住所の記載でカタカナの部分に半角と全角が混ざってしまっています。漢字・ひらがなはすべて全角、カタカナ・数字は半角に統一したいのですが、関数でできますか？　良い方法を教えてください。
Perl UTF8 での全角カタカナチェック

■環境 Linux, Perl 5.8 です。画面(HTML)と処理(Perl)は分けて作成しており、Templateモジュールで画面表示を行っています。 HTMLもPerlも文字コードはUTF-8です。 ■質問フォームからうけとった文字列で全角カタカナと特定の全角記号以外はエラーとする入力チェック処理(正規表現)がうまくチェックを行ってくれません。 SJISだと以下のような書き方があるそうなのですが、UTF8での書き方がわかりません。・SJIS if($data !~ /^(?:\x83[\x40-\x96])+$/){ $mes="全角カナ以外の文字が指定されています"; } UTF8での書き方を教えて頂きたいです。なお、許容する全角カタカナと特定の全角記号は以下のとおりです。 ========================================================== アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヰヱヲンァィゥェォッャュョヵヶヴガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポーヽヾ ========================================================== ご教授お願い致します。
半角カナから全角カナに変換

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"; どなたかご回答よろしくお願いいたします。
Word２０００で文章中のいろんな半角カタカナ言葉を全角に置き換えたい

MS　Word2000で文章中に多く含まれるいろんな半角カタカナ言葉をすべて全角カタカナにすばやく置き換える方法はありませんでしょうか。何卒宜しくお願い申し上げます。
半角から全角への一括変換

エクセルのA列にかぼちゃのモンブラン、みかんゼリー、野菜カレー、海老サンドイッチといったように、ランダムに半角と全角の片仮名が入っています。 A列の半角片仮名をすべて全角に変換するには B列にどのような関数を入力すればよろしいでしょうか？ご存知の方、教えていただけましたら幸いです。宜しくお願い致します。
カタカナ一覧表が知りたい

半角カタカナから全角カタカナへの変換がうまくいかないので、カタカナのすべてを置き換える方法で対処しようと考えています。カタカナのすべてが網羅されている（拗音、濁点等）一覧があるサイトが知りたいです。自作はしんどいかもしれませんが、確実に変換されそうなのでこの方法でやりたいです。私の環境はソースがutf8でjcode.pmは使わない環境です。
ＡＣＣＥＳＳで全角と半角を変換する

いつもお世話になっております早速ですが、 ACCESS2000（OSはWindowsXP）での質問です住所録を整理しているのですが、住所欄に全角と半角の入力が混在しています英数字及びハイフンは半角にカタカナは全角に変換したいのですが、いい方法はないでしょうか？ちなみにStrconv関数をつかって何とかしようと思ったのですが、すべて変換されるので、どうもうまくいきませんよろしくお願いします
Jcodeモジュールの代わりにjcode.plで代用可能でしょうか？

こんばんわ。前回質問したときに、回答をしていただいた方、ありがとうございました。原因は、結局のところ、サーバー会社の自分の使っているサーバーに ImageMagickがインストール？されていなかったみたいでした。使えないのですが、（使用では使えることになっていた。）と、連絡したところ、無事使えるようになりました。ありがとうございました。ですが、実際、ImageMagickを使ってみて、その機能の一部である、文字合成については英数字のみできました。プログラムのuseにある、Jcodeが、働いていないみたいでした。これはサーバーのサポート外なので、どうしようもないのですが。そこで、思いついたのは、jcode.plを使って、なんとかならないかなー？と、思ったのですが、これはさすがに、無理でしょうか？当然できたとしても難しいとは思うのですが、どうでしょう？無理でしょうか？できるのでしょうか？できたとしても、かなり難しいのでしょうか？できるとしたら、どんな感じに組めばいいのか、参考になるアドバイスがいただけたらと、思っているのですが。よろしくお願いします。 ↓は日本語が表示されなかった、プログラムです。 #!/usr/local/bin/perl -w use strict; use Jcode; use Image::Magick; # 画像を指定 my $file = "sample.jpg"; # 合成したい文字列 my $text = "ABC123日本語"; # UTF-8へ変換 $text = jcode($text)->utf8; # オブジェクト作成 my $image = Image::Magick->new; # 画像読み込み $image->Read($file); # 文字を記入する $image->Annotate(text=>$text, stroke=>'#FFFFFF', fill=>'#005599', font=>'sazanami-gothic.ttf', pointsize=>'36', x=>'20', y=>'40', encoding=>'UTF-8'); # 画像出力 print "Content-type: image/jpeg\n\n"; binmode STDOUT; $image->Write('jpeg:-'); undef $image; exit; よろしくお願いします。ありがとうございました。よろしくお願いします。
全角英数字を半角に変換

WindowsXPでファイルやフォルダが数千あり保存名がバラバラなので統一しようと試みています。力を貸してください。作業１．全角英数字を半角に変換作業２．半角カタカナを全角カタカナに変換現在)　フォルダ名：実験資料０１＿０１2 ファイル名：実験結果プリント01.xls 改正)　フォルダ名：実験資料01_012 ファイル名：実験結果プリント01.xls 例の様に一括変換ソフトやスクリプトをご存知の方いませんか。参考にしたURL：http://okwave.jp/qa281720.html ここでは、フォルダ名は確かに変わりましたが、全角と半角が混ぜると半角が削除されてしまいました。

Jcodeモジュールを使うのが定石でしょうか？　半角カタカナ→全角カタカナ変換

質問者が選んだベストアンサー

関連するQ&A

JcodeモジュールとEncodeモジュール

Jcodeによるカタカナ→ひらがな変換

半角カタカナ→全角カタカナへの変換

半角カタカナ→全角カタカナ変換がうまくいきません。

perl jcode::convert 半角>全角

Jcode.pmでの半角カナ→全角カナ変換

半角→全角変換

全角から半角に変換する

全角英数字を半角英数字に変換したい

Jcodeで変換できません。。。

更新クエリで半角カタカナのみ全角カタカナにする方法

エクセル　関数で全角カタカナを半角にしたい

Perl UTF8 での全角カタカナチェック

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

Word２０００で文章中のいろんな半角カタカナ言葉を全角に置き換えたい

半角から全角への一括変換

カタカナ一覧表が知りたい

ＡＣＣＥＳＳで全角と半角を変換する

Jcodeモジュールの代わりにjcode.plで代用可能でしょうか？

全角英数字を半角に変換

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

Jcodeモジュールを使うのが定石でしょうか？ 半角カタカナ→全角カタカナ変換

質問者が選んだベストアンサー

関連するQ&A

JcodeモジュールとEncodeモジュール

Jcodeによるカタカナ→ひらがな変換

半角カタカナ→全角カタカナへの変換

半角カタカナ→全角カタカナ変換がうまくいきません。

perl jcode::convert 半角>全角

Jcode.pmでの半角カナ→全角カナ変換

半角→全角変換

全角から半角に変換する

全角英数字を半角英数字に変換したい

Jcodeで変換できません。。。

更新クエリで半角カタカナのみ全角カタカナにする方法

エクセル 関数で全角カタカナを半角にしたい

Perl UTF8 での全角カタカナチェック

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

Word２０００で文章中のいろんな半角カタカナ言葉を全角に置き換えたい

半角から全角への一括変換

カタカナ一覧表が知りたい

ＡＣＣＥＳＳで全角と半角を変換する

Jcodeモジュールの代わりにjcode.plで代用可能でしょうか？

全角英数字を半角に変換

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

Jcodeモジュールを使うのが定石でしょうか？　半角カタカナ→全角カタカナ変換

エクセル　関数で全角カタカナを半角にしたい

カテゴリ
一覧

専門家に質問してみよう
専門家登録