f77coder has asked for the wisdom of the Perl Monks concerning the following question:
I need a bit of help, usually for bulk replacement of a word in a bunch of files I do something like this
perl -pi -e 's/junk/replace/g' *.cbut i need to be able to put a conditional || on the search without clobbering, I'm updating old C files to C11 type generic. there are a lot of type specific qualifiers that i want to replace with generic
http://en.cppreference.com/w/c/numeric/tgmath
for examplegeneric float dbl long cfloat c dbl cmplx long atanh atanhf atanh atanhl catanhf catanh catanhl
so in general i need to check for suffixes and prefixes at the same time otherwise the search term will clobber the previous search.
i need to put a conditional in the search like thisperl -pi -e 's/c$tgt || c$tgtf || c$tgtl || $tgtf || $tgtl /$tgt/g' *. +c
where $tgt is the replacement string, for example
$tgt = tanh
i need to search and replace the following
tanhf tanhl ctanhf ctanh ctanhlbut i get a complete mess out as the command still recurses and substitutes.
as well as the tricky one to replace 'rint' as it will conflict with printf
these old files have no spaces between operators but i'll space it out
result would beexa=cexpl ( ccosl (arg), csinl ( arg) ) * cabsl (arg2) + csqrtl ( carg +l(arg3) + csqrtl(cargl(arg4) * cargl(arg5) + cargl (arg5) * cargl(arg +5));
exa = exp( cos(arg) , sin(arg) ) * fabs(arg2)+ sqrt(carg(arg3) + sqrt( +carg(arg4)*carg(arg5)+carg(arg5)*carg(arg5));