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 -->
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"; } } }
In reply to Re: Re: Grabbing part of an HTML page
by Happy-the-monk
in thread Grabbing part of an HTML page
by kingdean
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |