Hi All,
I have this little program which cleans strings of HTML tags.
Currently the subroutine text_handler is returning the address
of the resultant string back. How can I make it return the
actual string.
Any help is appreciated.
Mick
my $z= ' <table border=2 cellpadding=4
cellspacing=0><tr><td><font face="CLRecordTechno" size=1
color="#000000"><p align="center">No Haledon <br>Great Oppty -
<br>fixer upper <br>Needs TLC but has great potential. 5 BT, 3
bths, large large rooms. Great yard with pond. Wonderful area,
good schools. $399,000<br>Call Owner Now, wont last <br>
845-986-5154</font></td></tr></table>';
my $m='';
sub text_handler() { return @_;} # Ordinary text
# text_handler($z);
my $p = HTML::Parser->new();
$p->handler( text => \&text_handler, "dtext");
$m = $p->parse($z);
print $m;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/