replace &

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

#!/usr/bin/perl;

use HTML::Entities;

$to_decode = "TEST&TEST;A&E&an&nbsp;HTML---&nbsp;string - &lt;&copy; T
+VS&gt;";
#$decoded = decode_entities($to_decode);
$encoded = encode_entities($to_decode);

print "To decode --> $to_decode\n";
print "Encoded data --> $encoded\n";
[download]

output is :

To decode --> TEST&TEST;A&E&an&nbsp;HTML---&nbsp;string - &lt;&copy; T
+VS&gt;
Encoded data --> TEST&amp;TEST;A&amp;E&amp;an&amp;nbsp;HTML---&amp;nbs
+p;string - &amp;lt;&amp;copy; TVS&amp;gt;
[download]

the expected output is TEST&TEST;A&E&an HTML--- string - <© TVS> Here all the & is replacing with &. If it is HTML entity I have to write a code which will not repalce it. Please help me how to proceed further

Comment on replace & Select or Download Code

Replies are listed 'Best First'.
Re: replace & by wfsp (Abbot) on Jun 04, 2009 at 07:02 UTC
I think you need to decode first and then encode. `#! /usr/bin/perl use strict; use warnings; use HTML::Entities; my $str = "TEST&TEST;A&E&an HTML--- string - <© TVS& +gt;"; my $decoded = decode_entities($str); my $encoded = encode_entities($decoded); print $encoded; __DATA__ TEST&TEST;A&E&an HTML--- string - <© TVS +>` [download] TEST&TEST;A&E&an HTML--- string - <© TVS>	[reply] [d/l]
Re^2: replace & by sandy1028 (Sexton) on Jun 04, 2009 at 07:26 UTC
If it is a HTML entities, it should not encode or decode. The string should be as it is. The output should see like this TEST&TEST;A&E&an HTML--- string - <© TVS>	[reply]
Re^3: replace & by Anonymous Monk on Jun 04, 2009 at 07:39 UTC
If it is a HTML entities, it should not encode or decode. Where did you get that idea? The string should be as it is. The output should see like this... I'm looking very carefully, and the string is exactly like that. If that isn't what you expect, post a hexdump of what you expect.	[reply]
Re^3: replace & by sandy1028 (Sexton) on Jun 04, 2009 at 07:42 UTC
How to check whether the string is a HTML entity in perl? Can any one tell me	[reply]
Re^4: replace & by Corion (Patriarch) on Jun 04, 2009 at 07:46 UTC
Re^5: replace & by sandy1028 (Sexton) on Jun 04, 2009 at 08:04 UTC
Some notes below your chosen depth have not been shown here
Re^4: replace & by ig (Vicar) on Jun 04, 2009 at 10:03 UTC
Re: replace & by Anonymous Monk on Jun 04, 2009 at 06:50 UTC
See replace string, character replace, Search and replace in portion of xml file.	[reply]


Think about Loose Coupling
	PerlMonks