In an effort to minimize the changes to your existing strategy:

$cmdperl = "perl -i -nle 'print if !/abc.sql/ || $found++;' abc.cronta
+b";

[download]

The first time that /abc.sql/ matches, the || logical short circuit will evaluate $found to be 'false', and thus no 'print will take place. However, because the $found++ expression was evaluated, $found will be incremented, making it "true". The next time /abc.sql/ matches, the || logical short circuit will evaluate $found as true, and will print. So the first time the "drop line" is found it gets skipped, and all other lines get printed.

There may be more elegant (a Perl-afficionado's eyes) pure-Perl solutions, but sometimes the best solution is to just fix the line that needs fixing, and move on. ;)

By the way: This is untested, so change the -i flag to -i.bak until you're sure it does what you want.


Dave

In reply to Re: delete line from pattern matching by davido
in thread delete line from pattern matching by anyera

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.