http://qs321.pair.com?node_id=11119977


in reply to Re^5: Looking for a module that strips an HTML tag and its associated 'TEXT'
in thread Looking for a module that strips an HTML tag and its associated 'TEXT'

I want the code to pass these simple tests:

# eliminate_tags
is(eliminate_tags("url: <a href=\"http://example.com/\">http://example
+.com/</a>", 'a'),
   "url: ");
is(eliminate_tags("<div>\n  <p>hoge foo.</p>\n  <p>bar tarao.</p>\n</d
+iv>", 'p'),
   "<div>\n  \n  \n</div>");

# eliminate_links
is(eliminate_links("url: <a href=\"http://example.com/\">http://exampl
+e.com/</a>"),
   "url: ");
is(eliminate_links("<div>\n  <p>hoge foo.</p>\n  <p>bar tarao.</p>\n</
+div>"),
   "<div>\n  <p>hoge foo.</p>\n  <p>bar tarao.</p>\n</div>");

[download]

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest Vicar";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks

In Section Seekers of Perl Wisdom