Perl Regex - 打印在字符串中找到的所有匹配项

Question

希望这次转发没有什么大问题，我只是需要一些额外的信息，但在第一次时不知何故溜走了。

在我正在处理的程序中，我试图获取一个 txt 文件，然后打印包含在一对引号中的 txt 位。

以下是我所拥有的。 （假设我已将 txt 文件放入一个数组中，每行作为一个数组元素。）它可以工作，但如果一行有 2+ 个字符串，显然它只会打印第一个。

打印所有匹配项的简洁方式是什么？

我尝试遍历$1、$2、$3 等，并打印它们if ne "";。但这似乎不起作用。

txt file contents:


Lorem ipsum dolor sit amet
consectetur "adipisicing elit"
sed "do" eiusmod tempor "incididunt"
ut "labore et dolore" magna aliqua


CODE:
foreach(@arr)
{
    print "$1\n" if /(".*?")/g;
}

Answer 1

试试这个：

while ($subject =~ m/"(.*?)"/sig) {
    # matched text = $&
}

Answer 2

使用while循环

foreach (@arr) {
    while (/(".*?")/g) {
        print "$1";
    }
}