Re^3: perl one liner to replace matching string

Ok, I get the same result as you reported. Playing around with it, I had to add two additional backslashes to get it to work as desired (not sure why):

my $ext='c';
qx("perl -p -i.bak -e \"s/(\\\@Filetyp\\s*?:)/\\1$ext/\" ./path/test.c
+");
#                          ^^
[download]

(Note: I also had to specify an extension for the backup file.) This is on Windows; if your O/S is different, it may treat the backslashes differently.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Comment on Re^3: perl one liner to replace matching string Download Code

Replies are listed 'Best First'.
Re^4: perl one liner to replace matching string by Veltro (Hermit) on Jun 10, 2018 at 20:06 UTC
In response to: not sure why Similar findings: here and it was pretty heavily analyzed by AnomalousMonk in the following posts	[reply]
Re^4: perl one liner to replace matching string by vinoth.ree (Monsignor) on Jun 10, 2018 at 16:58 UTC
You are right I am writing this for windows, If it is linux/unix I could have used sed/awk. *All is well. I learn by answering your questions...*	[reply] [d/l]
Re^5: perl one liner to replace matching string by AnomalousMonk (Archbishop) on Jun 10, 2018 at 18:44 UTC
If it is linux/unix I could have used sed/awk. `sed`, `gawk` and many other GNU-ish *nix utilities are available in the UnxUtils port of these utilities to Windoze. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]