Ich versuche, einige meiner alten Notepad++-Regex-Suchen in Perl zu implementieren.
Ich verwende folgenden Befehl.
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
Bearbeiten aber es tritt ein Fehler auf. (nach Änderung der Vorschläge)
Der String-Abschluss "'" kann nirgendwo vor EOF bei -e Zeile 1 gefunden werden.
Dies ist meine erste Begegnung mit Perl. Was übersehe ich (oder füge ich hinzu)?
Verwenden von Strawberry Perl für Windows.
Antwort1
Entschuldigen Sie die Unannehmlichkeiten. Hier gibt es bereits eine Antwort.https://stackoverflow.com/questions/20712181/strawberry-perl-regex-windows-7
Verwendung von " statt ' in Windows.