in reply to Get file part from the section where the matched pattern is found.

perl -ne '/\*\sdisks/ .. eof() and print'
  • Comment on Re: Get file part from the section where the matched pattern is found.
  • Download Code

In Section Seekers of Perl Wisdom