perl - 替换段落的一部分

Question

我目前正在尝试从 perl 脚本将段落插入 Open Office Writer 文档，然后在该段落中搜索特定短语，并将其替换为另一个，使用setTextSpan(). 我可以轻松地插入段落，只是在应用样式时，似乎没有任何效果。示例代码摘录如下：

my $doc = odfDocument(
    container => $container,
    part      => 'content',
);

$place = $doc->selectElementByContent("LOCATION");

$doc->insertParagraph(
    $place,
    position => 'before',
    text => "Sample text for demonstration purposes"
);

doc->setTextSpan(
    $place, 
    replace => "Sample text",
    text => "replaced Text"
);

有任何想法吗？