in reply to doing something with the rest of a file after matching a keyword

You could just set a flag and save when that is true. 
 
my $flag = false;
my @saved #the saved portion of the file 
while (<FILE>) { 
   #set the flag to true when we find the word Well
   if (/Well/) { 
      $falg = true;
   }
   if ( $falg ) { 
      push @saved, $_; #$_is the current line in your file
   }
}

[download]
  • Comment on Re: doing something with the rest of a file after matching a keyword
  • Download Code

Replies are listed 'Best First'.
Re: Re: doing something with the rest of a file after matching a keyword
by davorg (Chancellor) on Jan 17, 2003 at 17:01 UTC

    That's far too complex.

    my @saved;
while (<FILE>) {
  @saved = <FILE> if /Well/;
}

    [download]
    --
    <http://www.dave.org.uk>

    "The first rule of Perl club is you do not talk about Perl club."
    -- Chip Salzenberg

[reply]
[d/l]

In Section Seekers of Perl Wisdom