BlueJ774 BlueJ774 - 2 years ago 77
Perl Question

Replace string with substring in lowercase using sed / awk / tr / perl?

I have a plaintext file containing multiple instances of the pattern

and the asterisk could be any string of characters. I'd like to replace the entire instance with whatever is in the asterisk portion, but lowercase.

Here is a test file:


test me $$DATABASE_GIBSON$$ test me



Here is the desired output:


test me gibson test me

gibson test gibson test

gibson gibsongibson

How do I do this with sed/awk/tr/perl?

Answer Source

Here's the perl version I ended up using.

perl -p -i.bak -e 's/\$\$DATABASE_(.*?)\$\$/lc($1)/eg' inputFile
Recommended from our users: Dynamic Network Monitoring from WhatsUp Gold from IPSwitch. Free Download