Perl

Setting the XML DOCTYPE

See more XML Examples

Demonstrates setting an XML document's DOCTYPE. The sample code below produces the following XML output:

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>
    <body>This is the HTML body</body>
</html>

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $root = Chilkat2::Xml->new;

$root->Tag('html');

$root->DocType('<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">');

$root->NewChild2('body', 'This is the HTML body');

print $root->GetXml(), "\n";