文字列の1文字目だけ大文字にする関数

最近、Perlにucfirstという関数があると知ったので、記録しておく。

Perlの場合

ucfirst

$ perl -le 'print ucfirst("hello")'
Hello

PHPの場合

Perlと同じく、ucfirst

$ php -r 'echo ucfirst("hello");'
Hello

Emacs Lispの場合

upcase-initials

※Perl, PHPとは仕様が少し異なる。1文字目が空白だと読み飛ばし、最初のアルファベットを大文字にする。

(upcase-initials "hello")
"Hello"
(upcase-initials " hello")
" Hello"

Common Lispの場合

string-upcase

(string-upcase "hello" :start 0 :end 1)
"Hello"

参考

• CLHS: Function STRING-UPCASE, STRING-DOWNCASE...