アルファベットを大文字または小文字に変換する(全角半角混合) - Perl

「Perl大技林」一覧に戻る

文字列内のアルファベット(英字)を、大文字または小文字に変換したい。 全角文字、半角文字が一緒になっている場合はJcode.pmを利用すれば良い。

trメソッドを用いて、単純に置換してやれば良い。置換条件に半角文字の指定を加えれば全角・半角の変換が同時に行える。半角英小文字は半角英大文字、全角英小文字は全角英大文字になる。

## サンプル
;#
;#大文字・小文字変換
;#

use Jcode;

#-- 小文字を大文字へ --#
print Jcode->new('ａaｂbｃcｄdｅeｆfｇg')->tr('[a-zａ-ｚ]', '[A-ZＡ-Ｚ]')->sjis, "\n";

#-- 大文字を小文字へ --#
print Jcode->new('ＡAＢBＣCＤDＥEＦFＧG')->tr('[A-ZＡ-Ｚ]', '[a-zａ-ｚ]')->sjis, "\n";

実行例

ＡAＢBＣCＤDＥEＦFＧG
ａaｂbｃcｄdｅeｆfｇg

「Perl大技林」一覧に戻る

Perlクックブック〈VOLUME1〉

Effective Perl 第2版: 上級Perlプログラマへと成長できる120の階段