how to substitute '@' in line

vishy_acts has asked for the wisdom of the Perl Monks concerning the following question:

I want to substitute '@' in email id with \@ .
I am processing one crontabe entry from our server which contains email id .
How to add escape character '\' before that so as to process it correctly .?

program:

$line="abc.xyz@lmnop.com";
$line=~s/\@/\\@/g;
print "\n line is $line";
[download]

This is not giving correct result .

Thanks
Vishy

--------------------------------------------
I tried using Email::Address as follows

@addr=Email::Address->parse($line);

$user=$addr->$user;

print "\n $user";
[download]

---- this is not giving anything ---
i checked contents with perl -d ... addr is not getting created ...

please help

Comment on how to substitute '@' in line Select or Download Code

Replies are listed 'Best First'.
Re: how to substitute '@' in line by johngg (Canon) on Apr 08, 2012 at 17:33 UTC
Your line `$line="abc.xyz@lmnop.com";` is using double-quotes so you are trying to interpolate the array `@lmnop` into the string. Use single-quotes to suppress interpolation. `knoppix@Microknoppix:~$ perl -E ' > $line = q{abc.xyz@lmnop.com}; > say $line; > $line =~ s{(?=\@)}{\\}; > say $line;' abc.xyz@lmnop.com abc.xyz\@lmnop.com knoppix@Microknoppix:~$` [download] I hope this is helpful. Cheers, JohnGG	[reply] [d/l] [select]
Re: how to substitute '@' in line by Anonymous Monk on Apr 08, 2012 at 17:40 UTC
I'm not at my computer with Perl installed, but I think you could use the substitution operator with non-interpolating delimiters. `s'@'\@'`	[reply] [d/l]
Re: how to substitute '@' in line by snape (Pilgrim) on Apr 09, 2012 at 00:48 UTC
Are you substituting @ to /@ or separating the id and domain name. This might give you some hints: `my $line = 'abc.xyz@lmnop.com'; print $line,"\n"; $line=~s/($1)@($2)/$1\t$2/g; print "\n line is $line";` [download]	[reply] [d/l]