X-SEO > 技術メモ > Perl > 変換 > 頭文字を大文字に

Perl

頭文字を大文字に

#===========================================================================*
# プログラム名  : 頭文字を大文字に                                          *
# プログラムID  : Initial                                                   *
# 使用例        : &Initial($_[0]);                                          *
#---------------------------------------------------------------------------*
# 入力引数[0]   : 文字列（例 : x-seo）                                      *
#---------------------------------------------------------------------------*
# 出力引数[0]   : 文字列（例 : X-seo）                                      *
#===========================================================================*
sub Initial {
    #-------------------------------*
    # 変数宣言                      *
    #-------------------------------*
    my($RtnValue)   = $_[0];        # 戻り値用変数
    #-------------------------------*
    # 処理                          *
    #-------------------------------*
    $RtnValue       =~s/(\S+)/\u$1/;
    #-------------------------------*
    return $RtnValue;
}