uc関数/ucfirst関数

「uc」関数は対象となる文字列を全て大文字に変換します。

※小文字に変換する場合は「lc関数/lcfirst関数」を使用します。

uc
uc([EXPR])

対象の文字列を全て大文字に変換した文字列を返します。

パラメータ:
  EXPR  対象の文字列
戻り値：
  大文字に変換された文字列

1番目の引数には対象となる文字列を指定します。なお1番目の引数が省略された場合には変数「$_」が第一引数として使用されます。

具体的には次のように記述します。

my $target = "melon";
my $ucstr = uc($target);

この場合、結果として「MELON」が取得出来ます。

また先頭の文字だけを大文字に変換する場合には「ucfirst」関数を使用します。

ucfirst
ucfirst([EXPR])

対象の文字列の先頭を大文字に変換した文字列を返します。

パラメータ:
  EXPR  対象の文字列
戻り値：
  先頭の文字を大文字に変換された文字列

1番目の引数には対象となる文字列を指定します。なお1番目の引数が省略された場合には変数「$_」が第一引数として使用されます。

具体的には次のように記述します。

my $target = "melon";
my $ucfirststr = ucfirst($target);

この場合、結果として「Melon」が取得出来ます。

サンプルプログラム

では簡単なプログラムで確認して見ます。

test6-1.pl

use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $target = "melon";
my $ucstr = uc($target);
print "$target -> $ucstr¥n";

my $ucfirststr = ucfirst($target);
print "$target -> $ucfirststr¥n";

上記を「test6-1.pl」の名前で保存します(文字コードはUTF-8です)。そしてコマンドプロンプトを起動し、プログラムを保存したディレクトリに移動してから次のように実行して下さい。

PerlPlus