Of course, in light of the other responses, I suspect that I've been misled by your use of "remove": you just want to skip the irrelevant lines.

Which actually raises the question of whether you're interested in the header lines: 

New file :
CPN     Quantity        MPN     Vendor
which lie between the first an second section (you may well be, since these will allow you to spot the fact that you are indeed changing section).

However, if you're only interested in the data lines 

51-0597-000     15      06035C103MAT2A  AVX themselves
then: 
  while (<INFILE>) {
    next unless
      /^(\d{2}-\d{4}-\d{3})\s+(\d+)\s+(\S+)\s+(\S+)$/;
  # Not only have we thrown out the garbage,
  # but the data fields are now in $1..$4
    ...
    more processing
    ...
  }

[download]
will skip all the non-data lines, as well as breaking the string apart into its constituent fields (you can obviously taylor the regexp to your precise needs, if you need to break out the middle component of the first field, for example).

In reply to Re: Re: How to remove lines out of an ascii file by tommyw
in thread How to remove lines out of an ascii file by juo

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.