I am parsing a rather large input file using the follow-
ing perl code: 

while (my $line = <$fh>) {
chomp($line);
my ($uid, $login, $cpupr, $cpunpr, @data) = (split("\t",$line));
}

[download]


I want to stop parsing lines when a certain string is
found in the input file. Would anyone be able to
assist me in accomplishing this? I am able to use a
pattern match to determine when this string is found,
but I am not sure how to get perl to stop parsing lines
of input at this point. The pattern matching regular
expression is: 

if ($line =~ /TOTAL COMMAND SUMMARY/)

[download]


I am putting this after 'split' line and before the
while loop ends.


I hope someone can tell me what to do in the block
associated with this if statement or maybe this should
be some other kind of control loop.

In reply to Terminating Read Of Input by rayv

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.