Perl 정규식] 문자열 치환(바꾸기)/순서 변경/삭제 - s/// 치환 연산자(Substitution Operator)

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


### 가장 간단한 문자열 치환 ###

  $_ = "안녕하세요, 맹구씨!";
  s/맹구/대추/;

  print "$_\n";
# 결과: 안녕하세요, 대추씨!




### 디폴트 변수($_)가 아닌 일반 변수에 든 문자열 치환 ###

  my $temp = "안녕하세요, 맹구씨!";
  $temp =~ s/하세요/히 가세요/;

  print "$temp\n";
# 결과: 안녕히 가세요, 맹구씨!
# "=~" 를 사용해 특정 변수를 Binding 해주지 않으면, 디폴트 변수인 $_ 의 내용을 치환



### 문자열 추가/삽입 ###

  $_ = "안녕하세요, 맹구씨!";
  s/(맹구)/$1씨와 대추/;

  print "$_\n";
# 결과: 안녕하세요, 맹구씨와 대추씨!




### 순서 바꾸기 묘기(?)###

  $_ = "안녕하세요, 맹구씨!";
  s/(안녕하세요).*(맹구씨)/$2, $1/;

  print "$_\n";
# 결과: 맹구씨, 안녕하세요!
# $1 은, 첫번째 소괄호 "()" 속의 정규식에 매치되는 부분을 메모리에 저장하는 변수.
# $2 는 두번째 소괄호에서 매치되는 부분
# 복잡한 치환 작업을 할 때 사용하는 것입니다.
# 위의 경우, $1 은 (안녕하세요) 이고, $2 는 (맹구씨) 입니다.




### 문자열 일부분만 삭제 ###

  $_ = "안녕하세요, 맹구씨!";
  s/맹구//;

  print "$_\n";
# 결과: 안녕하세요, 씨!




### 전역 문자열 치환 ###

  $_ = "안녕하세요, 맹구씨! 맹구씨! 맹구씨! 맹구씨!";
  s/맹구/대추/g;

  print "$_\n";
# 결과: 안녕하세요, 대추씨! 대추씨! 대추씨! 대추씨!
# / 뒤에 g 를 붙이지 않으면, 맨 처음의 "맹구"만 "대추"로 치환되어
# 안녕하세요, 대추씨! 맹구씨! 맹구씨! 맹구씨!
# 이렇게 됨.