perl regular expression help

[uttamhoode]

hi all,
i have around 100 perl CGI scripts in which i want to delete some
string.

String is $abc::message{M001} i want to remove $abc::message{ } so
that the string becomes M001.

if i get regular expression for the above i will change the files using
PERL command line

Regards,
uttam hoode

 

[anno4000]

hi all,
i have around 100 perl CGI scripts in which i want to delete some
string.

String is $abc::message{M001} i want to remove $abc::message{ } so
that the string becomes M001.

if i get regular expression for the above i will change the files using
PERL command line

So what have you tried and how does it fail to do what you want?

Anno

 

[uttamhoode]

got the solution

perl -pi -w -e 's/\$abc::message{(\D\d\d\d)}/$1/g;' *.cgi

this will replace all $abc::message{xxx} to xx

before it didnt work because i gave escape sequence to some special
charatcers

.....like this

perl -pi -w -e 's/\$abc\:\:message\{(\D\d\d\d)\}/$1/g;' *.cgi

Regards,
uttam hoode