Perl 정규식 문자 이전에 문자 추가

Question

특수 문자 앞에 백 슬래시를 추가하는 데 도움이 필요합니다. 참고 : 간단한 스크립트를 만들어야하므로 모든 모듈을 사용할 수 없습니다.

하자 유 같은 라인이 있다고 :

<link class="include" rel="stylesheet" type="text/css" href="../css/style.css" /> 

지금 내가 추가하고 싶습니다 "을 \"와 같은 어떤 "또는 기타 특수 펄 문자 전에 : 그것은해야 끝에

$%/!`| 

수 :

:

<link class=\"include\" rel=\"stylesheet\" type=\"text/css\" href=\"../css/style.css\" /> 

내가 사용하려고

$line =~ s/["%'\/{|}]+/\\$1/g; 

작동하지 않았습니다.

어떤 정규 표현식을 사용해야합니까?

Answer 1

$1에서 특수 문자를 사용할 수 있습니다. 당신은() 더 눈에 띄는 만들기 위해 나는 약간의 간격을 추가하고 // X 자격이 ()

$line =~ s/ (["%'\/{|}]) /\\$1/xg; 

참고를 사용하여 캡처 할 필요가 수행합니다.

또 다른 방법은 앞으로 미리보기를 사용하는 것입니다.

$line =~ s/(?= [%'\/{|}]) /\\/xg;