To expand a little on McA’s answer, translation of:
`sed -i 's/QOS_PROFILE_ID/x1/g;s/CHARGING_PROFILE_ID/x2/g;s/CONTENT_FI +LTERING_PROFILE_ID/x3/g;...' $abc1`;
to Perl is straightforward:
$abc1 =~ s/QOS_PROFILE_ID/x1/g; $abc1 =~ s/CHARGING_PROFILE_ID/x2/g; $abc1 =~ s/CONTENT_FILTERING_PROFILE_ID/x3/g; ...
Hope that helps,
| Athanasius <°(((>< contra mundum | Iustus alius egestas vitae, eros Piratica, |
In reply to Re: Faster replacement of sed commands
by Athanasius
in thread Faster replacement of sed commands..
by Ankur_kuls
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |