Quote(3pm)						User Contributed Perl Documentation						Quote(3pm)

NAME

       XML::Quote - XML quote/dequote functions

SYNOPSIS

	 use strict;
	 use XML::Quote qw(:all);

	 my $str=q{666 > 444 & "apple" < 'earth'};
	 print xml_quote($str),"
";
	 # 666 &gt; 444 &amp; &quot;apple&quot; &lt; &apos;earth&apos;

	 my $str2=q{666 &gt; 444 &amp; &quot;apple&quot; &lt; &apos;earth&apos;};
	 print xml_dequote($str2),"
";
	 # 666 > 444 & "apple" < 'earth'

	 my $str3=q{666 > 444 & "apple" < 'earth'};
	 print xml_quote_min($str3),"
";
	 # 666 > 444 &amp; &quot;apple&quot; &lt; 'earth'

DESCRIPTION

       This module provides functions to quote/dequote strings in "xml"-way.

       All functions are written in XS and are very fast; they correctly process utf8, tied, overloaded variables and all the rest of perl
       "magic".

FUNCTIONS

       $quoted = xml_quote($str);
	   This function replaces all occurences of symbols '&', '"', ''', '>', '<' to '&amp;', '&quot;', '&apos;', '&gt;', '&lt;' respectively.

	   Returns quoted string or undef if $str is undef.

       $dequoted = xml_dequote($str);
	   This function replaces all occurences of '&amp;', '&quot;', '&apos;', '&gt;', '&lt;' to '&', '"', ''', '>', '<' respectively.  All
	   other entities (for example &nbsp;) will not be touched.

	   Returns dequoted string or undef if $str is undef.

       $quoted = xml_quote_min($str);
	   This function replaces all occurences of symbols '&', '"', '<' to '&amp;', '&quot;', '&lt;' respectively. Symbols ''' and '>' are not
	   replaced.

	   Returns quoted string or undef if $str is undef.

EXPORT

       xml_quote(), xml_dequote() are exported as default.

PERFORMANCE

       You can use t/benchmark.pl to test the perfomance.  Here is the result on my P4 box.

	 Benchmark: timing 1000000 iterations of perl quote, xs quote...
	 perl quote: 108 wallclock secs (88.08 usr +  0.01 sys = 88.09 CPU) @ 11351.64/s (n=1000000)
	   xs quote: 20 wallclock secs (16.78 usr +  0.00 sys = 16.78 CPU) @ 59591.20/s (n=1000000)

	 Benchmark: timing 1000000 iterations of perl dequote, xs dequote...
	 perl dequote: 106 wallclock secs (85.22 usr +	0.09 sys = 85.31 CPU) @ 11721.54/s (n=1000000)
	   xs dequote: 19 wallclock secs (15.92 usr +  0.02 sys = 15.94 CPU) @ 62743.13/s (n=1000000)

AUTHOR

       Sergey Skvortsov <skv@protey.ru>

SEE ALSO

       http://www.w3.org/TR/REC-xml <http://www.w3.org/TR/REC-xml>, perlre

COPYRIGHT

       Copyright 2003 Sergey Skvortsov <skv@protey.ru>.  All rights reserved.

       This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.14.2							    2008-06-26								Quote(3pm)