/ / Perl: Съвпадение на низ и изтриване на всички, освен първото събитие - regex, perl

Perl: Съвпадение на низ и изтриване на всички, но не на първо място - regex, perl

Имам файл в perl, който има следното съдържание

abc
text1
text2
text3
abc
text4
text5
abc
abc

Крайна продукция:

abc
text1
text2
text3
text4
text5

Искам да използвам perl един лайнер или скрипт, за да запазя 1-ви abc и да изтрия останалите. В моя скрипт използвам оператор за съвпадение на модели m?/abc/ за да намерите първия модел, но не можете да измислите начин да изтриете останалите. Моля, помогнете ми със същото

Отговори:

3 за отговор № 1

Ако приемем, че искате да изтриете целия ред, съдържащ втората и следващите събития на abc:

perl -ne "print if !/abc/ || !$n++" < infile > outfile

Ако искате да изтриете редове, съдържащи abc и нищо друго, промяна /abc/ да се /^abc$/.

Свързани въпроси

Perl regex: Как да уловим групи в piped text? - regex, perl, pipe, regex-group
Perl или Sed команда за изтриване на съдържание преди съвпадение на израз - regex, perl, sed, expression
Как да премахнете определен знак от цял ​​ред от даден низ с помощта на perl regex? - regex, perl
Работещ RegEx, който не успее в Perl да намери и замени еднолинейна - regex, perl
Perl регулярен израз за премахване на всички с изключение на последното събитие - regex, perl
Как да съвпадна нещо подобно с помощта на perl regex? - regex, perl
Модификаторът на регулярния израз на Perl - regex, perl
Perl проверява дали низът е префикс на валиден регекс мач - regex, perl
Защо моят Perl regex не съвпада с прости имена на хостове? - regex, perl, regex-алчни
RegEx за двете, цяло число и float - regex
Защо Perl е мързелив, когато регекс съвпада с * срещу група? - regex, perl
perl мач и премахване на броя на линиите - regex, perl
Regex съвпадение със скалари в Perl. - regex, perl
Как да използваме regex, за да съответства на елементи, които не са последвани от ...? - регекс
Неразрушаващ заместител на променливи за улавяне на регекс, разбити в perl5? - regex, perl, заместване, perl5
имена улавя, които съвпадат повече от веднъж (Perl) - regex, perl
Синтаксисът на RegEx Perl към Python - python, regex
Конвертиране на Perl regex в Python regex - python, regex, perl
MATLAB извън паметта, когато използвате perl () - matlab, perl, памет
Манипулиране на String Perl SVs в C - c, string, perl