Perl에서 이전 메모장++ 정규식 검색 중 일부를 구현하려고 합니다.
다음 명령을 사용합니다.
perl -i -pe 'BEGIN{undef $/;} s/\\cellx10464\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\sl320\\plain\\f4\\fs20\\b\\cf0 Patent Information\\b0(?:.*[\r\n]+){88}\\cellx10464\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\sl320\\plain\\f1\\fs20\\cf0 \\f1\\fs20\\cf0 US \d{11}(?:.*[\r\n]+){52}\\cellx10464\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\sl320\\plain\\f1\\fs20\\cf0 \\f1\\fs20\\cf0 (US [0-9]{5,7})[\r\n]+\\cell\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\sl320\\plain\\f1\\fs20\\cf0 \\f1\\fs20\\cf0 (\w\d)[\r\n]+\\cell\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\sl320\\plain\\f1\\fs20\\cf0 [a-zA-Z]{3} [0-9,]{3} [0-9]{4}[\r\n]+\\cell\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\sl320\\plain\\f1\\fs20\\cf0 \\f1\\fs20\\cf0 [\r\n]+\\cell\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\plain/tttttt$1 $2/smg' 1.rtf
편집하다 하지만 오류가 발생합니다.(제안에서 변경한 후)
-e 라인 1에서 EOF 앞의 문자열 종결자 "'"를 찾을 수 없습니다.
이것이 Perl과의 첫 만남입니다. 내가 무엇을 놓치고 있거나 추가하고 있나요?
Windows용 딸기 펄을 사용합니다.
답변1
불편을 끼쳐드려 죄송합니다. 여기에 이미 답변이 있습니다.https://stackoverflow.com/questions/20712181/strawberry-perl-regex-windows-7
Windows에서는 '대신에 "를 사용합니다.