Szia
Nem Perl, hanem Python, de remélem jó lesz.
Onnantól kezdem, hogy megvan a contents.xml ami a szöveget tartalmazza.
#/usr/bin/python
content = './content.xml'
tagName = 'text:p'
attribute = 'text:style-name'
pattern = 'Gitár'
from xml .dom import minidom
doc = minidom.parse(content)
root = doc.documentElement
paragraphs = root.getElementsByTagName(tagName)
for i in range (len(paragraphs)):
if paragraphs[i].getAttribute(attribute) == pattern :
deleTag = paragraphs[i].parentNode.removeChild (paragraphs[i])
deleTag.unlink()
import codecs
doc.writexml(codecs.open(content,'w', 'utf-8'))
Okosítani még lehet, de az alapelv az látszik.
Üdv