CODEWITHSUNDEEP
perlstringfilereplacesed
dr jerry
dr jerry

Reputation: 10026

Looking for a Perl or sed one-liner to replace a string with contents from another file

In an HTML file, let’s call it index.html, I want to replace a comment string, say //gac goes here, with the contents (multi-line) from a separate file which is called: gac.js. Is there a nice one-liner for that?

I found something as: sed -e "/$str/r FileB" -e "/$str/d" FileA, but it is not working as promised.

I do like it as short as possible, as it will be called after an SVN revert (I don't want any of that google.script polluting my development environment).

Upvotes: 2

Views: 1505

Answers (4)

dr jerry
dr jerry

Reputation: 10026

After going through man sed, this tutorial and some experimenting I came up with:

sed -i '\_//gac goes here_ {
    r gac.js
    d 
}' index.html

Which does exactly what I want. It's not exactly a oneliner (if i make it one line i get: sed: -e expression #1, char 0: unmatched '{') which I don't understand. However expression above fits nicely in my update script.

Lessons learned: sed is very powerfull, -i behaves different on mac os x / linux, /string/ can easily be replaced with \[other delimiter]string[other delimiter].

Upvotes: 1

Chas. Owens
Chas. Owens

Reputation: 64929

This should work, even though it is nasty:

perl -pe 'BEGIN{open F,"gac.js";@f=<F>}s#//gac goes here#@f#' index.html

In the case that gac.js is supposed to be dynamic:

perl -pe 's#//(\S+) goes here#open+F,"$1.js";join"",<F>#e' index.html

Upvotes: 5

Seth Robertson
Seth Robertson

Reputation: 31461

perl -mFile::Slurp -pe 's/\/\/(\w+) goes here/@{[File::Slurp::read_file("$1.js")]}/;'

Obviously requires File::Slurp

Upvotes: 3

Andrey Adamovich
Andrey Adamovich

Reputation: 20663

Not very nice, but seems to work:

cat index.html | perl -pe 'open(GAC, "gac.js");@gac=<GAC>;$data=join("", @gac); s/gac goes here/$data/g'

Upvotes: 1

Related Questions