使用perl或sed操作xml

Question

输入行：

<column name="Sample"><![TEST[x-y]]></column>

输出行：

<column name="Sample"><![TEST[y]]></column>

x是任意数字

y是任意数字

我想摆脱x-。 如何在Perl中做到这一点？或者也许这可能与sed？

Answer 1

这个正则表达式应该是你想要的：

$line=~s/(?<=<\!\[TEST\[)\d+\-//;

单线风味：

perl -pe 's/(?<=<\!\[TEST\[)\d+\-//' file.xml

但是，作为StackOverflow中的said before，请避免使用正则表达式解析/处理XML。请使用模块（例如XML::Simple）。