How can I replace all hotmail.com addresses in a file with another email address, using Perl?

Question

Hello all, I have multiple email id's in some config files in a directory; I'm running my scripts on a Solaris machine. I want to perform the following:

Find all the email_id's in the config files in a directory: eg: [email protected] ; [email protected] ; [email protected] ; [email protected]

Replace all existing id's with: [email protected]

The following implementation can help me replace "hotmail" with "gmail" for all the email id's in the config files. But i'm a little confused to solve the above problem

perl -pi -e 's/\@hotmail/\@gmail/g' *

Thanks in advance!

Answer 1

What you need is an editor with regex/global replace (and make sure it creates *.bak files)

sure, coding this is fun ..

Answer 2

Try

's/\S+@hotmail\.com/[email protected]/g'

Answer 3

using the solution posted by heferav, i don't seem to get the answer

$ more file
[email protected] ; [email protected] ; [email protected] ; [email protected]
$ perl -ne 'print if s/\S+@hotmail\.com/[email protected]/g' file
wxyz.com ; wxyz.com ; wxyz.com ; wxyz.com

maybe I am missing something. @OP, since you are working in Solaris, i assume you can use nawk

$ nawk '{ for(i=1;i<=NF;i++){gsub(/.*@hotmail.com/,"wxyz@hotmail",$i)} }1' file
wxyz@hotmail ; wxyz@hotmail ; wxyz@hotmail ; wxyz@hotmail