More fun with strings(substr,split,join)

http://www.perl.com/pub/a/2008/05/07/beginners-introduction-to-perl-510-part-2.html?page=2

perl에 대한 공부를 처음 시작할 때 www.perl.com 에 놀러갔다가

이 문서를 정리하는것이 좋겠다 라는 생각이 들어 번역을 시도했다.

번역하다보니 내 맘대로의 해석이 되는듯 하여 오역이 많을것이라 예상 중 ㅡ_ㅡ;

= More fun with strings

문자열을 쉽고 재미있게 다루기 위해 perl은 3개의 함수 substr(), split(), and join() 를 제공한다.

 

만약 문자열의 한부분을 쉽게 바꾸려 한다면... substr 함수를 사용해라.

 

substr함수는 2개 또는 3개의 매개변수를 사용되는데

 

첫번째 매개변수는 문자열이 저장된 변수명 ,

 

두번재 매개변수는 문자열이 출력될 첫번째 위치를 넣어주면 된다.

 

만약 원하는 구역까지만 문자를 출력하려면 

세번째 매개변수를 사용하여 그 문자열의 크기를 명시하면 된다.

 









my $greeting = "Welcome to Perl!\n";
print substr($greeting, 0, 7);     # "Welcome"
print substr($greeting, 7);        # " to Perl!\n"





뒤에서 부터 찾을 수는 없는가?? 

당연히 가능하다!

my $greeting = "Welcome to Perl!\n";
print substr($greeting, -6, 4);      # "Perl"





(Remember that inside double quotes, \n represents the single new-line character.)

 

음.. 이런건 기초적인 문법인데.. 친절한 사람들... 

 

substr함수로 찾은 문자열을 우리가 원하는 문자로 바꿀 수 있다.

그리고 유용한 기술로써 처음에 문자를 삽입하는 방법도 있다.

my $greeting = "Welcome to Java!\n"; substr($greeting, 11, 4) = 'Perl'; # $greeting is now "Welcome to Perl!\n"; substr($greeting, 7, 3) = ''; # ... "Welcome Perl!\n"; substr($greeting, 0, 0) = 'Hello. '; # ... "Hello. Welcome Perl!\n";

split() 함수는 문자를 파트별로 쪼개거나 구역의 한부분을 반환해주는 함수이다.

split()는 일반적으로 두개의 파라메터를 가지며 정규표현식을 써서 원하는 문자열을 나눌 수 있다.

정규표현식에서 / / 는 하나의 스페이스 문자를 뜻한다.


이 문법을 이용하여 한번 문자들을 나누어 보자.



my $greeting = "Hello. Welcome Perl!\n";
my @words    = split(/ /, $greeting);   # Three items: "Hello.", "Welcome", "Perl!\n"\






스페이스를 기준으로 문자열을 나누어 @words라는 배열에 넣어주었다.

세세한 조건을 주어 사용할때는 3개의 매개변수를 사용할 수있다.

이 숫자는 배열에 들어갈 문장의 갯수인데 이 숫자만큼 배열의 요소들의 수가 결정된다.

my $greeting = "Hello. Welcome Perl!\n";
my @words    = split(/ /, $greeting, 2);   # Two items: "Hello.", "Welcome Perl!\n";






물론, 나누는것이 있으니 문자열을 결합시켜주는 join()이라는 함수도 있다.

join 함수는 배열에 있는 단어들을 서로 붙여서 주는 역활을 한다.

단 붙여줄때 어떤 문자를 우리가 삽입해 붙여 줄 수 있는것이 join함수의 특징이다.

my @words         = ("Hello.", "Welcome", "Perl!\n");
my $greeting      = join(' ', @words);       # "Hello. Welcome Perl!\n";
my $andy_greeting = join(' and ', @words);   # "Hello. and Welcome and Perl!\n";
my $jam_greeting  = join('', @words);        # "Hello.WelcomePerl!\n";