Perl - 在变量中找到多个子串？

Question

我是Perl的新手,我已经使用这个网站几年了,我一直在寻找有关我一直在研究的其他项目的问题的答案,但我似乎找不到这个问题的答案..

我的脚本收到一个HTTP响应,其中包含我需要删除的数据以解析正确的信息.

到目前为止,我有这个子串..

my $output = substr ($content, index($content, 'Down'), index($content, '>'));

这似乎正在做它本应该做的事情.找到这个词'Down',然后将其子串,直到找到它为止>.

但是,字符串'Down'可以在响应中出现多次,这会停止查找它找到第一个示例.

我怎样才能让子字符串递归？

谢谢你的帮助 :)

Answer 1

这样的一种方式:

my $x="aa Down aaa > bb Down bbb > cc Down ccc >";

while ($x =~/(Down[^>]+>)/g){
        print $1;
}