87 lines
2.1 KiB
Markdown
87 lines
2.1 KiB
Markdown
# 정규표현식
|
|
|
|
- m//
|
|
- s///
|
|
- tr///
|
|
|
|
## 일치
|
|
|
|
문자열이 정규표현식과 일치하는지 여부를 테스트하려면, `=~` 연산자를 사용합니다. 일치하는 경우에 true가 됩니다.
|
|
|
|
```perl
|
|
my $str = "Hello, World.";
|
|
if ($str =~ /lo/){
|
|
print "matches.\n";
|
|
} else {
|
|
print "not matches.\n";
|
|
}
|
|
```
|
|
|
|
일치하지 않는 경우를 판단하려면, `!~` 연산자를 사용합니다.
|
|
|
|
```perl
|
|
my @array = ('Charlie', 'Steve', 'Jane');
|
|
for (@array){
|
|
print "$_\n" if ($_ !~ /an/);
|
|
}
|
|
```
|
|
|
|
정규표현식에 '/'가 포함된 경우에는 이스케잎 처리하거나, 또는 문자열 앞에 `m`을 붙여 정규표현식임을 나타낼 수도 있습니다.
|
|
|
|
```perl
|
|
print "$_\n" if ($_ =~ m"an");
|
|
```
|
|
|
|
정규표현식 뒤에 `i`를 붙이면 대소문자를 구분하지 않습니다.
|
|
|
|
```perl
|
|
print "$_\n" if ($_ =~ /an/i);
|
|
```
|
|
|
|
## 그룹
|
|
|
|
일치된 그룹은 특수 변수인 `$1`, `$2` 등을 통해서 사용할 수 있습니다.
|
|
|
|
```perl
|
|
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`를 붙입니다. 치환된 문자열의 개수가 반환됩니다.
|
|
|
|
```perl
|
|
my $var = 'new work city';
|
|
$var =~ s/new work/New York/;
|
|
|
|
print "$var\n";
|
|
```
|
|
|
|
```perl
|
|
my $var = 'This dog is my dog, not your dog.';
|
|
$var =~ s/dog/duck/g;
|
|
|
|
print "$var\n";
|
|
```
|
|
|
|
```perl
|
|
my $var = 'This dog is my dog, not your dog.';
|
|
my $count = ($var =~ s/dog/duck/g); # 치환된 문자열 개수를 반환
|
|
|
|
print "$var\n";
|
|
```
|
|
|
|
## 문자 단위 변환
|
|
|
|
`tr///`는 어떤 문자를 다른 문자로 바꿀 때 사용됩니다. 문자 단위로 적용됩니다.
|
|
|
|
```perl
|
|
$var =~ tr/d,/D./;
|
|
# 'd'는 'D'로, ','는 '.'으로 바꿉니다.
|
|
``` |