Re: The best way to replace several fragments of the file starting with the one pattern(marker) and ending with another pattern/marker.


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: The best way to replace several fragments of the file starting with the one pattern(marker) and ending with another pattern/marker.

by tybalt89 (Prior)

on Nov 01, 2020 at 09:07 UTC ( #11123326=note: print w/replies, xml )

Need Help??

in reply to The best way to replace several fragments of the file starting with the one pattern(marker) and ending with another pattern/marker.

TIMTOWTDI

#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11123325
use warnings;

print do { local $/; <DATA> } =~
  s/AAAAAA\n\K.*?(?=BBBBBB)/<<'END_OF_REPLACE'/gesr =~
f11
f12
f13
END_OF_REPLACE
  s/CCCCCC\n\K.*?(?=DDDDDD)/<<'END_OF_REPLACE'/gesr;
f21
f22
END_OF_REPLACE

__DATA__
aaa
aaa
AAAAAA
ccc
ddd
BBBBBB
111
222
333
CCCCCC
444
555
666
DDDDDD
777
888
999
[download]

Outputs:

aaa
aaa
AAAAAA
f11
f12
f13
BBBBBB
111
222
333
CCCCCC
f21
f22
DDDDDD
777
888
999
[download]

Comment on Re: The best way to replace several fragments of the file starting with the one pattern(marker) and ending with another pattern/marker. Select or Download Code

In Section Seekers of Perl Wisdom

Node Status^?

node history
Node Type: note [id://11123326]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others making s'mores by the fire in the courtyard of the Monastery: (4)

As of 2021-03-01 17:09 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?