CGI関連,  Perlモジュール,  サーバー,  日記

全角文字←→半角文字に変換する(Unicodeモジュール)

 

cpan[1]> install Unicode::Japanese

 

全角文字を半角文字に変換する(Unicodeモジュール)

入力データ : []@!#$%&’()*+,−./012345ABCDEFGabcdefgアイウエオガザダバパヴ
z2h :[]@!#$%&'()*+,-./012345ABCDEFGabcdefgアイウエオガザダバパヴ
z2hSym :[]@!#$%&'()*+,-./012345ABCDEFGabcdefgアイウエオガザダバパヴ
z2hNum :[]@!#$%&’()*+,−./012345ABCDEFGabcdefgアイウエオガザダバパヴ
z2hAlpha :[]@!#$%&’()*+,−./012345ABCDEFGabcdefgアイウエオガザダバパヴ
z2hKana :[]@!#$%&’()*+,−./012345ABCDEFGabcdefgアイウエオガザダバパヴ
z2hKanaK :[]@!#$%&’()*+,−./012345ABCDEFGabcdefgアイウエオガザダバパヴ
z2hKanaD :[]@!#$%&’()*+,−./012345ABCDEFGabcdefgアイウエオガザダバパヴ

#記号・英数字・カタカナをすべて半角文字に変換する
$in1[2] = Unicode::Japanese->new($temp)->z2h->get;
#記号のみを半角文字に変換する
# $in1[2] = Unicode::Japanese->new($temp)->z2hSym->get;
#数字のみを半角文字に変換する
# $in1[2] = Unicode::Japanese->new($temp)->z2hNum->get;
#英字のみを半角文字に変換する
# $in1[2] = Unicode::Japanese->new($temp)->z2hAlpha->get;
#カタカナのみを半角文字に変換する
# $in1[2] = Unicode::Japanese->new($temp)->z2hKana->get;
#カタカナ(濁音つき、半濁音つきを除く)を半角文字に変換する
# $in1[2] = Unicode::Japanese->new($temp)->z2hKanaK->get;
#カタカナ(濁音つき、半濁音つきのみ)を半角文字に変換する
# $in1[2] = Unicode::Japanese->new($temp)->z2hKanaD->get;

————————————————————————

半角文字を全角文字に変換する(Unicodeモジュール)

入力データ : []@!#$%&'()*+,-./ 012345ABCEFGabcefgアイウエオガザダバパヴ
h2z : []@!#$%&’()*+,−./ 012345ABCEFGabcefgアイウエオガザダバパヴ
h2zSym : []@!#$%&’()*+,−./ 012345ABCEFGabcefgアイウエオガザダバパヴ
h2zNum : []@!#$%&'()*+,-./ 012345ABCEFGabcefgアイウエオガザダバパヴ
h2zAlpha : []@!#$%&'()*+,-./ 012345ABCEFGabcefgアイウエオガザダバパヴ
h2zKana : []@!#$%&'()*+,-./ 012345ABCEFGabcefgアイウエオガザダバパヴ
h2zKanaK : []@!#$%&'()*+,-./ 012345ABCEFGabcefgアイウエオガザダバパヴ
h2zKanaD : []@!#$%&'()*+,-./ 012345ABCEFGabcefgアイウエオガザダバパヴ

#記号・英数字・カタカナをすべて全角文字に変換する
$in1[2] = Unicode::Japanese->new($temp)->h2z->get;
#記号のみを全角文字に変換する
# $in1[2] = Unicode::Japanese->new($temp)->h2zSym->get;
#数字のみを全角文字に変換する
# $in1[2] = Unicode::Japanese->new($temp)->h2zNum->get;
#英字のみを全角文字に変換する
# $in1[2] = Unicode::Japanese->new($temp)->h2zAlpha->get;
#カタカナのみを全角文字に変換する
# $in1[2] = Unicode::Japanese->new($temp)->h2zKana->get;
#カタカナ(濁音つき、半濁音つきを除く)を全角文字に変換する
# $in1[2] = Unicode::Japanese->new($temp)->h2zKanaK->get;
#カタカナ(濁音つき、半濁音つきのみ)を全角文字に変換する
# $in1[2] = Unicode::Japanese->new($temp)->h2zKanaD->get;

 

備忘録として
Perlの細道・けもの道さんのページを抜粋、転記
http://a011w.broada.jp/wbaefznh35st/perl/perl0368.html
http://a011w.broada.jp/wbaefznh35st/perl/perl0364.html

 

Last Updated on 2023年5月17日10:34 pm by cgishop