UNIX for Advanced & Expert Users

Hi,

I want to search for a specific word in file and replace whole line with new text.

e.g.
1) I have file with below lines
APP=ABCD 12/12/2012
DB=DDB 01/01/2013

I need perl command which will check for APP=$VAL and replace whole line with APP=$NEWVAL $NEWDT

Simlarly need a command which will help for below.
"ABCD 12/12/2012"
"ABCDE 12/01/2013"
I have to search ABCD and replace only that line.

Thanks in advance.

It's like sed in a bottle: Perl tutorial: Substitution and translation

Code:

s/^APP=[^ ]* [01]*[0-9]\/[0-3]*[0-9]\/[21][09][0-9][0-9] *$/APP=$NEWVAL $NEWDT/
 
s/^ABCD [01]*[0-9]\/[0-3]*[0-9]\/[21][09][0-9][0-9] *$/.../

Since it is PERL not sed, you need a loop that reads lines into string variables for substitution.

Code:

cat file

APP=ABCD 12/12/2012
DB=DDB 01/01/2013

perl -pe '$NEWVAL="DCBA";$NEWDT="01/01/2013";$_ =~ s/ABCD\s12\/12\/2012/$NEWVAL $NEWDT/' file

APP=DCBA 01/01/2013
DB=DDB 01/01/2013