无法在Perl上用圆括号分割字符串

如何解决无法在Perl上用圆括号分割字符串

例如以下代码：

$test_str = 'foo(bar';
@arr = split('(',$test_str);

导致500错误

为什么？

解决方法

与ikegami says一样，split期望模式作为其第一个参数。字符串将被转换为模式。由于圆括号(具有特殊含义，因此会出错。您需要对其进行转义。

my @arr = split /\(/,$str;

,

根据perldoc -f split，split()函数的第一个参数是正则表达式/PATTERN/。因此，如果您要编写此代码：

split('some text',$string)

这等效于：

split( m/some text/,$string )

如果some text包含正则表达式中特殊的字符，则它们将被视为正则表达式。所以你的线：

@arr = split('(',$test_str);

将被视为：

@arr = split( m/(/,$test_str );

这可能不是您想要的，因为m/(/是无效（可以说不完整）的正则表达式。要在文字(上进行匹配，您需要使用反斜杠对其进行转义，因此请改用此符号：

@arr = split( m/\(/,$test_str );

现在，您已经注意到Perl试图通过将您的第一个参数从字符串'('转换为正则表达式模式m/(/来提供帮助。尽管您可以将字符串作为第一个参数传递，但我不建议您使用-而是使用m/PATTERN/。

我之所以推荐，是因为：

1. 一个模式清楚表明第一个参数是一个正则表达式模式，而不仅仅是任何旧字符串。
2. 根据perldoc -f split，在特殊情况下，您可以 传递字符串作为第一个参数：

在特殊情况下，指定空格（''）将会 就像在没有参数的情况下“分割”一样，在空格上分割。 因此，“ split（''）”可用于模拟awk的默认值 行为，而“ split（/ /）”将为您提供尽可能多的null 初始字段，因为有前导空格。一个“分裂” “ / \ s + /”类似于“ split（''）”，除了任何前导 空白产生一个空的第一字段。没有“分裂” 参数确实在内部执行“ split（''，$ _）”。

最好不要混淆两者。因此，当您想使用在空格上分割的特殊情况时，请使用' '作为split()的第一个参数，而对于其他所有情况，请将m/PATTERN/作为第一个参数。