in reply to Re: Grabbing part of an HTML page
in thread Grabbing part of an HTML page

Tried that. It didn't work.

I tried that too, before posting here. And it worked fine.
But I also made sure the strings you were looking for exist in the test data.

my test data:

<!-- start section-->
blah
<!-- end section -->

[download]

the test script in readmore:

#!/usr/bin/perl
                                                                      
+          
$start_pattern = '<!-- start section-->';
$end_pattern = '<!-- end section -->';
@files_to_look_in = ("test.html", "test.html");
                                                                      
+          
$write_line = 0;
                                                                      
+          
# while(@files_to_look_in) # original line (always true)
foreach (@files_to_look_in)
{
    #open(HTM_FILE, <$_); # original line (no "")
    open( HTM_FILE, "<$_" );
    while(<HTM_FILE>)
    {
        if($_=~/$start_pattern/i)
        {
            $write_line = 1;
        }
        if($_=~/$end_pattern/i)
        {
            $write_line = 0;
        }                                                             
+          
        if($write_line =~ '1') # better make that  if ( $write_line ==
+ 1 )   or simply if ( $write_line )
        {
            print "$_\n";
        }
    }
}

[download]

In Section Seekers of Perl Wisdom