Printing between two key words in a file

[emilybartholomew]

I have this really enormous file that I would like to print only sections of. These sections are set off by the key words "Table" and "End Table". So the file looks like this:

[stuff I don't want to print]
Table
[stuff I want to print. there are about 50 lines]
End Table
[stuff I don't want to print]
Table
[stuff I want to print]
End Table
[stuff I don't want to print]
.
.
.

Any thoughts? Thnx

 

[goBoating]

# one approach
open(FILE,&quot;<your_enormous_file&quot;) or die &quot;Failed to open, $!\n&quot;;
while ($line = <FILE>)
    {
    if ($line =~ /^Table/) { $switch = 'on'; next; }
    elsif ($line =~ /^End Table/) { $switch = 'off'; next;}
    
    if ($switch eq 'on') { print &quot;$line&quot;; }
    }
close FILE;

# OR, read the entire file in and cruise through it
# with a regex
open(FILE,&quot;<your_enormous_file&quot;) or die &quot;Failed to open, $!\n&quot;;
while (<FILE>){ $buffer .= $_; }
close FILE;
while ($buffer =~ /Table\n(.*?)\nEnd Table/gs) { print &quot;$1&quot;; }

'hope this helps

If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.

 

[emilybartholomew]

Yes, that exactly what I need. Thanks!