Tuesday, January 09, 2007

Perl/펄] 첫글자만 대문자로 변경, 영문 알파벳 단어에서; Capitalize

문자열의 첫글자만 대문자로 바꾸는 \u 와, 문자열을 모두 소문자로 만드는 \L 이라는, "문자열 이스케이프(String Escape)"를 조합하여 사용하면, 첫글자만 대문자가 되고, 나머지 글자는 소문자가 됩니다.

결국 단어의 첫글자만 대문자로 만드는 Capitalize 가 구현됩니다.

첫글자만 대문자로 변경 예제: 캐피털라이즈

#!/usr/bin/perl
use strict; use warnings;

# 첫글자만 대문자로 변경
my $s = "GOOGLE";

$s = "\u\L$s";
print $s, "\n";
# 출력 결과: Google
# GOOGLE 이 Google 로 변경되었음

# 변수에 넣지 않고, 직접 리터럴로 지정
$s = "\u\LgooGLE";
print $s, "\n";
# 출력 결과: Google
# gooGLE 이 Google 로 변경되었음