如何用perl 去掉xml 中的tags

molliechan

大家好，我刚刚开始学perl, 想问怎么写code 能把xml 的tags 去掉变成下面输出的句子。

输入: <b>This is</b><font color="red"> a test</font>.<br />
输出: This is a test.

非常非常感谢！

q1208c

$str =~ s/<[^>]*>//;

yestreenstars

1. $ echo '<b>This is</b><font color="red"> a test</font>.<br />' | perl -pe 's/<[^>]+>//g'
   
2. This is a test.

复制代码