Hi,
The parse method returns the parser object reference, and this is not your
intetion.
To solve you can use the following:
local $text = "";
my $m="";
sub text_handler() { $text .= shift;} # Ordinary text
# text_handler($z);
my $p = HTML::Parser->new();
$p->handler( text => \&text_handler, "dtext");
$p->parse($z);
print $text;
Yaron Kahanovitch
----- Original Message -----
From: "Michael Goopta" <[EMAIL PROTECTED]>
To: "Perl Help" <beginners@perl.org>
Sent: Wednesday, May 9, 2007 4:32:04 PM (GMT+0200) Auto-Detected
Subject: How to return actual string rather than the address to the result
string
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/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
