Я пытаюсь реализовать некоторые из моих старых регулярных выражений поиска в блокноте ++ в 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

Изменить, но это дает ошибку.(После изменения из предложений)

Не удается найти терминатор строки "'" нигде до EOF в строке -e 1.

Это моя первая встреча с Perl. Что я пропускаю (или добавляю)?

Использование клубничного Perl для Windows.

1 ответ1

0

Извиняюсь за беспокойство. Это уже есть ответ здесь https://stackoverflow.com/questions/20712181/strawberry-perl-regex-windows-7

использование «вместо» в Windows.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .