具有双引号和空格的 Perl 拆分字符串

Question

我有一个这样的字符串："abc" "cd - e"。我需要将其拆分为以下两个字符串：

1. "abc"
2. "cd - e"

我在 Perl 中尝试了几个选项，但无法满足我的需要。有人可以指导我吗？谢谢。

Answer 1

my @strings = $input =~ /"[^"]*"/g;

• 假设输入有效。基本上，您可以使用正则表达式匹配来验证或提取，但同时进行这两项操作非常困难。
• 假设引用的字段不能包含引号，因为您没有提到转义机制。

Answer 2

您可以在前面有 " 后跟 " 的空格上进行拆分：

use strict;
use warnings; 

my $s = '"abc" "cd - e"';
my @matches = split /(?<=")\s+(?=")/, $s;
# "abc"
# "cd - e"

Answer 3

如果您的输入将特别包含您建议的两个字符串（而不是任意 n 字符串），那么这应该可以：

$s = '"abc" "cd - e"';

$s =~ /(".*") (".*")/;
$s1 = $1;
$s2 = $2;

或者您可以通过将. 替换为“非引号”来使其更安全，即[^"]：

$s =~ /("[^"]*") ("[^"]*")/;
$s1 = $1;
$s2 = $2;