Perl OpenOffice::OODoc Изменение текста в стиле верхнего / нижнего колонтитула

Question

Я пытаюсь выяснить, как изменить текст в нижнем колонтитуле файла ODT. Нижний колонтитул хранится в файле styles.xml, однако я не могу получить к нему доступ, используя selectElementsByContent или любой другой метод:

my $a = odfContainer('test.odt');
my $styles = odfDocument(container => $a, part => 'styles');

foreach my $element ($styles->selectElementsByContent('mytest'))
{
   #never runs...

}

Файл styles.xml в odt выглядит так:

<office:document-styles>
    <office:master-styles>
        <style:master-page>
            <style:footer>
                <text:p test:style-name="P49">
                    mytest
                </text:p>
            </style:footer>
        </style:master-page>
    </office:master-styles>
</office:document-styles>

Как правильно изменить текст:p содержимого?

Answer 1

В итоге мне пришлось использовать odfXPath для циклического прохождения:

my $ss = odfXPath(file => 'myfile.odt' , part => 'styles');
my $p =0;
while (my $p = $ss->getElement('//text:p',$p))
{
if ($ss->getText($para) eq 'mytest') { $ss->setText($p,'foobar');}
$p++;
}
$ss->save('mynewfile.odt');