Использование XML :: LibXML: как создать пространства имен и дочерние элементы и заставить их работать вместе?

Я пытаюсь что-то делать с FOAF и Perl. Я недоволен текущими решениями и хочу использовать свои собственные. Пожалуйста, не ссылайтесь ни на какой другой модуль, кроме XML::LibXML.

Для справки - отрывок из файла FOAF.

<rdf:RDF
      xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
      xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#"
      xmlns:foaf="http://xmlns.com/foaf/0.1/"
      xmlns:admin="http://webns.net/mvcb/">

  <foaf:Person rdf:ID="me">
  <foaf:name>Evan Carroll</foaf:name>
....

Теперь, исключая пробелы, я пытаюсь воссоздать это с помощью XML::LibXML. Однако, к сожалению, я застрял на самой первой строчке. Это просто фокусируется на первой строке:

Я прочитал это, чтобы быть

1. element RDF, in namespace rdf declares
   1. attribute rdf in namespace xmlns with value http://www.w3.org/1999/02/22-rdf-syntax-ns#
   2. атрибут rdfs в пространстве имен xmlns со значением http://www.w3.org/2000/01/rdf-schema#
   3. атрибут foaf в пространстве имен xmlns со значением http://xmlns.com/foaf/0.1/
   4. атрибут admin в пространстве имен xmlns со значением http://webns.net/mvcb/

Во-первых, вам нужен элемент rdf:RDF, это может показаться сложным. Прочитав документацию для XML::LibXML::Document, я обнаружил createElementNS() но, похоже, это не то, что я хочу:

use XML::LibXML;
my $doc = XML::LibXML::Document->new( '1.0', 'UTF-8' );
my $foaf = $doc->createElementNS( 'RDF', 'rdf' );
print $foaf->toString; # prints <rdf xmlns="RDF"/>

Теперь я пробую createElement('rdf:RDF'), и он работает! Получил корневой элемент rdf:RDF. Так мы должны создавать корневые элементы? Я просто неправильно читаю XML?

Теперь мне нужно создать атрибуты (объявления схемы). Я пробовал плохо документированные XML::LibXML::Document createAttributeNS, но это тоже не сработало:

my $doc = XML::LibXML::Document->new( '1.0', 'UTF-8' );
my $foaf = $doc->createElement( 'rdf:RDF' );
$doc->createAttributeNS( 'http://www.w3.org/1999/02/22-rdf-syntax-ns#', 'rdf' );

На самом деле я получаю такую ​​ошибку: «не могу создать новое пространство имен для атрибута!», что кажется противоречащим тому, что подразумевает имя метода, и его описанию в документации: «Создает Атрибут, привязанный к пространству имен "

Итак, я полагаю, хорошо, я не могу create и attributeNS, может, тогда я смогу set и attributeNS. И на этот раз на XML::LibXML::Element я перехожу к следующему документированному методу, который выглядит применимым: setAttributeNS.

my $doc = XML::LibXML::Document->new( '1.0', 'UTF-8' );
my $foaf = $doc->createElement( 'rdf:RDF' );
$foaf->setAttributeNS( 'http://www.w3.org/1999/02/22-rdf-syntax-ns#', 'rdf' );

На этот раз я получаю другую ошибку: "bad ns attribute!". Итак, я просматриваю некоторые из тестов и обнаруживаю, что для этого требуется атрибут "ключ-значение", отличный от объявления пространства имен, чтобы делать то, что я хочу ... Это не то, что я хочу.

Вот несколько возможных комбинаций и выходов:

$foaf->setAttributeNS( http://www.w3.org/1999/02/22-rdf-syntax-ns#', 'rdf:', undef );
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" rdf:=""/>

$foaf->setAttributeNS( 'http://www.w3.org/1999/02/22-rdf-syntax-ns#', 'rdf:foo', 'bar' );
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" rdf:foo="bar"/>

Кажется, что ни один из методов * NS не работает, хотя я знаю, что они связаны с пространствами имен XML. Наконец, я пробую версию, отличную от NS:

my $doc = XML::LibXML::Document->new( '1.0', 'UTF-8' );
my $foaf = $doc->createElement( 'rdf:RDF' );
$foaf->setAttribute( 'xmlns:rdf', 'http://www.w3.org/1999/02/22-rdf-syntax-ns#' );
print $foaf->toString; # <rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"/>

У меня ужасное чувство, что я делаю это неправильно. Я сделал это правильно? Как мне добавить дочерний элемент в DOM (не используя appendTextChild)?

Все это XML::LibXML очень плохо документировано, но кажется лучшим, что Perl может предложить для быстрого создания XML с помощью DOM.