[Perl] カタカナ変換［ホームページ・ブログ作成＆ネットでお得に！］

このブログは管理者がホームページやブログを作成する途上で知り得た便利情報をメモしたものです。ホームページやブログ作成にお役立て下さい。また同時にポイントサイトやアフィリエイトなどネット利用でお得になる情報も満載中です！

当ブログに掲載されているツール等へのリンクはデジタル・ネットワーク社会と著作権「Q12無断でリンクを張ることは著作権侵害となるでしょうか。」（公益社団法人著作権情報センター　CRIC）の考え方に基づき、掲載させていただきました。リンクを解除して欲しいサイトの担当者様はご面倒ですが、コメント欄にてご一報頂けると幸いです。（コメント欄は直接表示されないように設定しています。）

[PR]

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

2024/12/04 (Wed) Edit

[Perl] カタカナ変換

【半角カタカナに変換（Perl5.8以降）】

use Encode;
use Encode::JP::H2Z;

Encode::from_to($str, "sjis", "euc-jp");
Encode::JP::H2Z::z2h(\$str);
Encode::from_to($str, "euc-jp", "sjis");

### 全角へはEncode::JP::H2Z::h2z(\$str); ###

【半角カタカナに変換（旧Perl）】

require "jcode.pl";

jcode::convert(\$str, "sjis", "", "h");

### jcode.pl → 漢字等の処理を行う ###
### 全角へは jcode::convert(\$str, "sjis", "", "z"); で、できるはずだけど、使えなかった ###

【全角カタカナに変換（旧Perl）】

require "jcode.pl";

&jcode::h2z_sjis(\$str);