Perl/펄] join 함수 사용법 예제; join Function Example

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

  # 테스트용 배열 정의
  my @a = qw( 자장면 탕수육 짬뽕 우동 물만두 );



  ###############################################################
  # 배열을 문자열로 합치되, 배열 요소를 슬래쉬(/) 문자로 구분하기
  # join에서, "/" 같은 문자를 glue(글루;접착제)라고 하며
  # 배열 요소들 사이사이에 책갈피처럼 끼워 넣습니다

  my $s = join "/", @a;

  # 문자열 출력
  print $s, "\n";
  # 출력 결과: 자장면/탕수육/짬뽕/우동/물만두




  ###############################################################
  # glue 문자가 "빈 문자열"이면 몽땅 하나로 합쳐집니다

  $_ = join "", @a;
  print $_, "\n";
  # 출력 결과: 자장면탕수육짬뽕우동물만두




  ###############################################################
  # join 함수 뒤에, 합칠 문자열들을 하나씩 나열해 주어도 됨
  # glue문자는 콜론(:)을 사용

  $_ = join ":", "자장면", "탕수육", "짬뽕", "우동", "물만두";
  print $_, "\n";
  # 출력 결과: 자장면:탕수육:짬뽕:우동:물만두




  ###############################################################
  # join 함수 뒤에, 문자열과 배열을 함께 나열해 주어도 됨
  # glue문자를 $cool 이라는 변수에 넣었음

  my $cool = " (^_^) ";

  $_ = join $cool, "ABC", "Google", @a;
  print $_, "\n";
  # 출력 결과: ABC (^_^) Google (^_^) 자장면 (^_^) 탕수육 (^_^) 짬뽕 (^_^) 우동 (^_^) 물만두