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

この記事は2007年03月05日に書かれた物です

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

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

サンプル

;#
;#大文字・小文字変換
;#
 
use Jcode;
 
#-- 小文字を大文字へ --#
print Jcode->new('aabbccddeeffgg')->tr('[a-za-z]', '[A-ZA-Z]')->sjis, "\n";
 
#-- 大文字を小文字へ --#
print Jcode->new('AABBCCDDEEFFGG')->tr('[A-ZA-Z]', '[a-za-z]')->sjis, "\n";

実行例

AABBCCDDEEFFGG
aabbccddeeffgg

関連書籍

failed to fetch data: unkown error

failed to fetch data: unkown error

コメント

コメントを入力. Wiki文法が有効です:
Y M​ W M A