perl-examples/docs/10_regexp.md

정규표현식

• m//
• s///
• tr///

일치

문자열이 정규표현식과 일치하는지 여부를 테스트하려면, =~ 연산자를 사용합니다. 일치하는 경우에 true가 됩니다.

my $str = "Hello, World.";
if ($str =~ /lo/){
    print "matches.\n";
} else {
    print "not matches.\n";
}

일치하지 않는 경우를 판단하려면, !~ 연산자를 사용합니다.

my @array = ('Charlie', 'Steve', 'Jane');
for (@array){
    print "$_\n" if ($_ !~ /an/);
}

정규표현식에 '/'가 포함된 경우에는 이스케잎 처리하거나, 또는 문자열 앞에 m을 붙여 정규표현식임을 나타낼 수도 있습니다.

print "$_\n" if ($_ =~ m"an");

정규표현식 뒤에 i를 붙이면 대소문자를 구분하지 않습니다.

print "$_\n" if ($_ =~ /an/i);

그룹

일치된 그룹은 특수 변수인 $1, $2 등을 통해서 사용할 수 있습니다.

my @array = (
    "Charlie's phone number is 010-1234-5678.", 
    "010-9876-5432 is a phone number of Steve.", 
    "To call Jane, press 010-5555-1234.");
for (@array){
    print "$1\n" if ($_ =~ /(\d{3}-\d{4}-\d{4})/);
}

치환

s/정규표현식/새로운문자열/ 형식의 문법을 사용해서 일치되는 문자열을 다른 문자열로 치환할 수 있습니다. 처음으로 일치된 문자열이 새로운 문자열로 치환됩니다. 모든 일치된 문자열에 대해서 치환하려면 정규표현식 맨 끝에 g를 붙입니다. 치환된 문자열의 개수가 반환됩니다.

my $var = 'new work city';
$var =~ s/new work/New York/;

print "$var\n";

my $var = 'This dog is my dog, not your dog.';
$var =~ s/dog/duck/g;

print "$var\n";

my $var = 'This dog is my dog, not your dog.';
my $count = ($var =~ s/dog/duck/g); # 치환된 문자열 개수를 반환

print "$var\n";

문자 단위 변환

tr///는 어떤 문자를 다른 문자로 바꿀 때 사용됩니다. 문자 단위로 적용됩니다.

$var =~ tr/d,/D./;
# 'd'는 'D'로, ','는 '.'으로 바꿉니다.