MKDoc:...ripper(3pm)
π NAME π
MKDoc::XML::Stripper β bestie, it removes unwanted XML / XHTML tags and attributes. It's the bouncer at the club door of your markup. π
β¨ SYNOPSIS β¨
use MKDoc::XML::Stripper;
my $stripper = new MKDoc::XML::Stripper;
$stripper->allow (qw /p class id/);
my $ugly = '<p class="para" style="color:red">Hello, <strong>World</strong>!</p>';
my $neat = $stripper->process_data ($ugly);
print $neat;
Should print:
<p class="para">Hello, World!</p>
πΈ SUMMARY πΈ
MKDoc::XML::Stripper is a class that lets you specify a set of tags and attributes you want to allow, and then cheekily strip any XML of the unwanted tags and attributes. Like a glow-up but for markup. π
In MKDoc, this is used so that editors use structural XHTML rather than presentational tags, i.e. strip anything which looks like a <font> tag, a 'style' attribute or other tags which would break separation of structure from content. Structure stays, content stays, presentational chaos goes. periodt. π«
π DISCLAIMER π
This module does low level XML manipulation. It will somehow parse even broken XML and try to do something with it. Do not use it unless you know what you're doing.
fr fr though bestie β it does low level XML manipulation, it will somehow parse even broken XML and try to do something with it. If you don't know what you're doing, don't. π
π¦ API π¦
π my $stripper = MKDoc::XML::Stripper->new()
Instantiates a new MKDoc::XML::Stripper object. Brand new main character, freshly unboxed. β¨
π $stripper->load_def ($def_name);
Loads a definition located somewhere in @INC under MKDoc/XML/Stripper. It's giving "presets, but make it compute." π
Available definitions are:
xhtml10framesetxhtml10strictxhtml10transitionalmkdoc16β MKDoc 1.6. XHTML structural markup
You can also load your own definition file, for instance:
$stripper->load_def ('my_def.txt');
Definitions are simple text files as follows:
# allow p with 'class' and id
p class
p id
# allow more stuff
td class
td id
td style
# etc...
π $stripper->allow ($tag, @attributes)
Allows "<$tag>" to appear in the stripped XML. Additionally, allows @attributes to appear as attributes of <$tag>, so for instance:
$stripper->allow ('p', 'class', 'id');
Will allow the following:
<p>
<p class="foo">
<p id="bar">
<p class="foo" id="bar">
However any extra attributes will be stripped, i.e.
<p class="foo" id="bar" style="font-color: red">
Will be rewritten as
<p class="foo" id="bar">
not me watching style="font-color: red" get evicted with zero remorse π it's giving separation of structure from content
π $stripper->disallow ($tag)
Explicitly disallows a tag and all its associated attributes. By default everything is disallowed. So like, the door is closed to everyone until you personally invite them in. πͺ
π $stripper->process_data ($some_xml);
Strips $some_xml according to the rules that were given with the allow() and disallow() methods and returns the result. Does not modify $some_xml in place. So your original stays unbothered, untouched, pristine. π«Ά
π $stripper->process_file ('/an/xml/file.xml');
Strips '/an/xml/file.xml' according to the rules that were given with the allow() and disallow() methods and returns the result. Does not modify '/an/xml/file.xml' in place. Same deal, no in-place edits, we are respectful of your files here. π
π NOTES π
MKDoc::XML::Stripper does not really parse the XML file you're giving to it nor does it care if the XML is well-formed or not. It uses MKDoc::XML::Tokenizer to turn the XML / XHTML file into a series of MKDoc::XML::Token objects and strictly operates on a list of tokens. It's just vibing through a token list, honestly. π
For this same reason MKDoc::XML::Stripper does not support namespaces. Soz. π
π AUTHOR π
Copyright 2003 - MKDoc Holdings Ltd.
Author: Jean-Michel Hiver
This module is free software and is distributed under the same license as Perl itself. Use it at your own risk.
free software, same license as Perl itself, and yes β use it at your own risk. iconic behavior, honestly. π
π₯ SEE ALSO π₯
MKDoc::XML::Tokenizer MKDoc::XML::Token
okay that's the whole page bestie, ily, go strip some tags πβ¨
mwah π β this one's from perl v5.36.0, dated 2022-10-13, filed under MKDoc:...ripper(3pm) in the user-contributed Perl documentation stash. slay π
π¦ where this page comes from
- ubuntu noble: libmkdoc-xml-perl 0.75-6 Β· Artistic-1.0-Perl OR GPL-1.0-or-later
- ubuntu resolute: libmkdoc-xml-perl 0.75-6 Β· Artistic-1.0-Perl OR GPL-1.0-or-later
- ubuntu stonking: libmkdoc-xml-perl 0.75-6 Β· Artistic-1.0-Perl OR GPL-1.0-or-later
- π girlified by deepseek-ai/DeepSeek-V4.1-Flash on : a language model's rewrite of the original, under its terms