I want the extract the text in between the tags from my
htm file. I am using below code its not working
Please let me know how to proceed further.
use Text::Balanced "gen_extract_tagged";
my @queries = (
qq(QUERY = <A href= "Suresh">sdf</a>)
);
for (@queries) {
my ($extracted, $remainder, $prefix) = extract_delimited(
undef, # defaults to $_
'>', # Our chosen delimiter
'[^<]*', # Allow for text before the delimiter
''); # Escape delimiter when doubled
# Strip the delimiter since Text::Balanced leaves it in
$extracted =~ s/^\"(.*)\"$/$1/;
print;
print "\n\$prefix = '$prefix'\n";
print "\$extracted = '$extracted'\n";
print "\$remainder = '$remainder'\n\n";
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
