How do I create non-breaking space (  ) with HTML::Element?

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

Monks, I am doing a large number of find and replace operations using HTML::Treebuilder and HTML::Element. One place I have run into trouble is . This isn't an html element, yet it isn't treated quite as text either. (Pseudoelement?) For instance:

use strict;
use warnings;
use HTML::Element;
use Test::More qw(no_plan);

my $element = HTML::Element->new('td', "class"=>"zwischanspalte");
$element->push_content('&nbsp;');

my $expected = '<td class="zwischanspalte">&nbsp;</td>';

my $html = $element->as_HTML();
is($html, $expected);
[download]

output is

not ok 1
#     Failed test (pseudoelement.pl at line 12)
#          got: '<td class="zwischanspalte">&amp;nbsp;</td>
# '
#     expected: '<td class="zwischanspalte">&nbsp;</td>'
1..1
# Looks like you failed 1 tests of 1.
[download]

How can I get this to work? Thanks!

Comment on How do I create non-breaking space (  ) with HTML::Element? Select or Download Code

Replies are listed 'Best First'.
Re: How do I create non-breaking space (  ) with HTML::Element? by Tanalis (Curate) on Aug 08, 2005 at 13:29 UTC
I'd take a look at the `~literal` pseudo-element in the docs .. that looks like it should be able to do what you need. Untested, but .. `my $literal = HTML::Element->new('~literal', 'text' => ' ' ); my $element = HTML::Element->new('td', "class"=>"zwischanspalte"); $element->push_content($literal);` [download] might give you some ideas :) Hope that helps ... -- Foxcub `#include www.liquidfusion.org.uk`	[reply] [d/l] [select]
Re^2: How do I create non-breaking space (  ) with HTML::Element? by tphyahoo (Vicar) on Aug 08, 2005 at 13:52 UTC
Thanks foxcub, that did the trick. I just had to delete whitespace to pass the test :) `use strict; use warnings; use HTML::Element; use Test::More qw(no_plan); my $literal = HTML::Element->new('~literal', 'text' => ' ' ); my $element = HTML::Element->new('td', "class"=>"zwischanspalte"); $element->push_content($literal); my $expected = '<td class="zwischanspalte"> </td>'; my $html = $element->as_HTML(); $html =~ s/[\r\n]//; is($html, $expected);` [download]	[reply] [d/l]
Re: How do I create non-breaking space (  ) with HTML::Element? by marnanel (Beadle) on Aug 08, 2005 at 16:47 UTC
FWIW,   and friends are called character entity references.	[reply]
Re: How do I create non-breaking space (  ) with HTML::Element? by Marel (Initiate) on Mar 15, 2012 at 22:22 UTC
Old question, new answer: `use strict; use warnings; use HTML::Element; use Test::More qw(no_plan); my $nbsp = chr(160); my $element = HTML::Element->new_from_lol( ['td', {"class"=>"zwischanspalte"}, $nbsp] ); my $expected = '<td class="zwischanspalte"> </td>'; my $html = $element->as_HTML(); is($html, $expected);` [download] For me chr(160) is handier then using ~literal etc. as it can easily combined in strings.	[reply] [d/l]
Re: How do I create non-breaking space (  ) with HTML::Element? by gu (Beadle) on Nov 15, 2005 at 20:51 UTC
Once, getting content from HTML::TreeBuilder , I had to find how to remove those ` ` spaces appearing as spaces-that-are-not-spaces :) I tried : `my $tree = HTML::TreeBuilder->new_from_content( $m->content ) ; for ($tree->look_down( _tag => 'td', class => 'obsTempText' ) ) { my $bla = $_->as_trimmed_text ; $bla =~ s/ //g ; print $bla ; }` [download] But the `s/ //g` did nothing. As marnanel said, the answer is to use HTML character entity references : `my $NBSP = HTML::Entities::decode_entities(' ');` [download] Then, `$bla =~ s/$NBSP//g ;` [download] removed the non-breaking spaces.	[reply] [d/l] [select]
Re^2: How do I create non-breaking space (  ) with HTML::Element? by etlamar (Novice) on Aug 12, 2012 at 12:59 UTC
Thanks so much for this post referencing deleting  . I had been trying for several days to delete these nodes. This was very helpful. Thanks!	[reply]