펄 정규식에서 물건을 대체하는 방법

Question

나는 $text 문자열이 있고 그것을 정규식으로 수정하고 싶습니다. 문자열에 <NAME>John</NAME>과 같은 여러 섹션이 있습니다.

은 내가 일반적으로

$text =~ m/<NAME>(.*?)<\/NAME>/g 

같은 것을 함께 할하지만있는 나는 것, 선두에없고 후행 공백 아무 선도하는 단어가 아닌 문자가 없는지 확인 가도록 섹션을 검색하려면 일반적으로 다음과 같이 지정하십시오.

$temp =~ s/^\s+|\s+$//g; # trim leading and trailing whitespaces 
$temp = s/^\W*//g; # remove all leading non-word chars 

이제 제 질문은 : 실제로 이것을 어떻게합니까? m// 대신 s/// 정규식을 사용할 수 있습니까?

Answer 1

는 태그 (이 정규 표현식을 사용하여 XML을 "구문 분석"하는 것이 가능하는 한) 내부 단지 "정리"텍스트입니다.

Answer 2

단일 대체로 가능하지만 불필요하게 복잡합니다. 대체 대체품을 사용하여 2 단계 대체를 제안합니다.

my $text = '<NAME> %^John^% 

</NAME>'; 

$text =~ s{ (?<=<NAME>) ([^<>]*) (?=</NAME>) }{ 
    (my $new = $1) =~ s/\A\s+|\s+\z//g; 
    $new =~ s/\A\W+//; 
    $new; 
}eg; 

print $text; 

출력은

<NAME>John^%</NAME> 

이것은 당신이 버전 14 이상 펄 5의를 가지고 있고, 비파괴 (/r 수정) 대체 모드를 사용하려는 경우에도 간단하다. 당신이 원하는 무엇을 만약 내가 제대로 이해하고

$text =~ s{ (?<=<NAME>) ([^<>]*) (?=</NAME>) }{ $1 =~ s/\A\s+|\s+\z//gr =~ s/\A\W+//r }exg;