查找单引号和双引号字符串，并定义在Perl中找到的字符串

Question

我有这样的文本文件（它有很多行）

This is "double quote" and 'single quote' and another 'single'
This line has "double"

我需要将行拆分为字符串（单引号或双引号内的所有内容） 输出应如下：

"double quote" 
'single quote' 
'single' 
"double" 

我使用以下完美无缺的正则表达式

my @line_array = $string =~ /["']+(.*?)["']+/g;

但输出是：

double quote
single quote
single 
double 

我无法确定找到什么样的引用以及如何以其他顺序打印它们。让我疯狂

非常感谢

Answer 1

只需更改括号即可捕获引号。所以：

my @line_array = $string =~ /(["']+.*?["']+)/g;