«

How to extract part of the text (htm) file after start word until end word?

start word is <! start >
end word is <! end>
Eg: some. html
-----------------------------------
not interested part of file...
not interested part of file... <! start >Interested
part
123456789<! end> not interested part..
------------------------------------


"Interested
part
123456789"

Thanks

wrote:
: How to extract part of the text (htm) file after start word until end word?

: start word is <! start >
: end word is <! end>
: Eg: some. html
: -----------------------------------
: not interested part of file...
: not interested part of file... <! start >Interested
: part
: 123456789<! end> not interested part..
: ------------------------------------

Slurp your file in paragraph mode (search perldoc perlvar) by saying

local $/;
local $_ = <FH>;
if ( /<! start>(.*)<! end>/ ) {
$text=$1;
}
print $text;

Build a loop around this construct if you have more than one start..end
segment per file.

Oliver.

--
Dr. Oliver Corff e-mail:

<> <> wrote:
> wrote:
>: How to extract part of the text (htm) file after start word until end word?
>
>: start word is <! start >
>: end word is <! end>
>: Eg: some. html
>: -----------------------------------
>: not interested part of file...
>: not interested part of file... <! start >Interested
>: part
>: 123456789<! end> not interested part..
>: ------------------------------------
>
> Slurp your file in paragraph mode (search perldoc perlvar) by saying
>
> local $/;
> local $_ = <FH>;
> if ( /<! start>(.*)<! end>/ ) {


if ( /<! start>(.*)<! end>/s ) { # interesting part contains newlines


> $text=$1;
> }
> print $text;
>
> Build a loop around this construct if you have more than one start..end
> segment per file.


If there is more than one, then you'd better make that:

if ( /<! start>(.*?)<! end>/s ) { # non-greedy


--
Tad McClellan SGML consulting
Perl programming
Fort Worth, Texas

Aukjan van Belkum <> wrote:

> if ( m/<\! start \!>/ .. m/<\! end \!>/){


There is no upside to gratuitous backslashing.

Exclamation marks are not special in regular expressions, so there
is no need to backslash them.

(and your patterns do not match the strings the OP posted.)


--
Tad McClellan SGML consulting
Perl programming
Fort Worth, Texas

Tad McClellan <> wrote:

: if ( /<! start>(.*)<! end>/s ) { # interesting part contains newlines

Thanks for the correction, I felt I was missing something.

: If there is more than one, then you'd better make that:

: if ( /<! start>(.*?)<! end>/s ) { # non-greedy

And thank you for that, too.

Oliver.
--
Dr. Oliver Corff e-mail: