regex - 匹配给定字符的文本，但不包括 Perl 中单引号内出现的字符

Question

我正在尝试从字符串中提取文本直到下一次出现 /，不计算单引号内出现的斜杠。例如

my $str="test 'a/b' c/ xxx /";
$str =~ /(.*?)\//;
print "$1\n";

给予

test 'a

而我想得到:

test 'a/b' c

Answer 1

你可以试试这个:

$str =~ /^((?>[^'\/]+|'[^']*')*)\//;