note
FreeBeerReekingMonk
You asked for a oneliner, which by I think you mean to give each function separately, so for "exp", it would be:<P>
<code>
perl -pi -e 's/\bc?${tgt}[fl]?\b/$tgt/g' -s -- -tgt=exp *.c;
</code><P>
The problem is fabs, which means you need to consider it separately:<P>
<code>perl -pi -e 'for $tgt(qw(exp log pow sqrt sin cos tan asin acos atan sinh cosh tanh asinh acosh atanh)){ s/\bc?${tgt}[fl]?\b/$tgt/g };s/\b[cf]abs[fl]?\b/fabs/g' *.c;</code><P>
addendum, with the | or you wanted, it would be:<P>
<code>
perl -pi -e 's/\bc?(exp|log|pow|sqrt|sin|cos|tan|asin|acos|atan|sinh|cosh|tanh|asinh|acosh|atanh)[fl]?\b/$1/g; s/\b[cf]abs[fl]?\b/fabs/g'
</code><!-- Wiki2Monks {"version":1.1416} -->
1156148
1156169