펄 검색 및 하나의 정규 표현식으로 바꾸기

Question

다음과 같이해야합니다 : 's/oldstr/newstr/g;pattern' 즉, oldstr을 바꿔서 교체 후 문자열에서 pattern을 찾습니다. 하나의 정규식으로 모두.

Answer 1

첫 번째 문자열을 바꾸고 결과 문자열에서 패턴을 찾으려면 두 표현식을 서로 붙여야합니다. /r 플래그로 바꾸면 변경된 문자열이 반환되고 m 연산자는 해당 문자열을 패턴과 비교합니다.

use Test::Simple 'no_plan'; # this is just for the ok() function 

my $str = 'foobar'; 
ok($str =~ s/o/0/gr =~ m/\d\d/); 
ok($str =~ s/o/0/gr !~ m/\d\d\d/); 

__END__ 
ok 1 
ok 2 
1..2