Re: search/replace one liners without clobbering

Some thoughts:

There is no || regex operator. More precisely, || resolves to a pair of | regex alternation operators with a null pattern between them, and the // null regex pattern matches everything, so no surprise about the junk.
I don't get where the $tgt $tgtf $tgtl variables are defined and initialized: what are these supposed to represent? Do you have any philosophical objection to running with strict and warnings enabled?
(Update: The /c$tgt || c$tgtf || c$tgtl || $tgtf || $tgtl / regex has embedded literal spaces. I don't know if this is intentional, but you may want to investigate the /x regex modifier; see Modifiers.)

Can you supply a short, representative chunk of the sample input data you wish to process and its desired final form? I think that would help greatly to define the problem.

Update: Various small wording and spelling fixes.

Give a man a fish: <%-{-{-{-<

Comment on Re: search/replace one liners without clobbering Select or Download Code

Replies are listed 'Best First'.
Re^2: search/replace one liners without clobbering by f77coder (Beadle) on Feb 26, 2016 at 01:49 UTC
sure here is an example line of code these old files have no spaces between operators but i'll space it out `exa=cexpl ( ccosl (arg), csinl ( arg) ) * cabsl (arg2) + csqrtl ( carg +l(arg3) + csqrtl(cargl(arg4) * cargl(arg5) + cargl (arg5) * cargl(arg +5));` [download] result would be `exa = exp( cos(arg) , sin(arg) ) * fabs(arg2)+ sqrt(carg(arg3)) + sqrt +(carg(arg4)carg(arg5)+carg(arg5)carg(arg5));` [download]	[reply] [d/l] [select]
Re^3: search/replace one liners without clobbering by hippo (Archbishop) on Feb 26, 2016 at 09:43 UTC
result would be `exa = exp( cos(arg) , sin(arg) ) * fabs(arg2)+ sqrt(carg(arg3)) + sqrt(carg(arg4)carg(arg5)+carg(arg5)carg(arg5));` Really? Why do you go from `cabsl` to `fabs` instead of replacing it with `abs`? Also, your bracket counts seem to differ between the before and after examples. Assuming that you didn't mean that and really wanted `abs` and the same number of brackets and correcting the arbitrary whitespace: #!/usr/bin/env perl use strict; use warnings; use Test::More tests => 1; my $have = 'exa=cexpl ( ccosl (arg), csinl ( arg) ) * cabsl (arg2) + c +sqrtl ( cargl(arg3)) + csqrtl(cargl(arg4) * cargl(arg5) + cargl (arg5 +) * cargl(arg5));'; my $want = 'exa = exp( cos(arg) , sin(arg) ) * abs(arg2)+ sqrt(carg(ar +g3)) + sqrt(carg(arg4)carg(arg5)+carg(arg5)carg(arg5));'; # Remove apparently arbitrary spaces for the purposes of validation $have =~ s/ +//g; $want =~ s/ +//g; for my $term (qw/exp cos sin abs sqrt carg/) { $have =~ s/\b[cf]? ${term} [fl]?/$term/xg; } is ($have, $want, 'Match'); [download]	[reply] [d/l] [select]