如何限制 Perl 拆分中返回的项目数量？

Question

我在解析包含数千行的复杂文件时遇到问题。

几天前我已经实现了我的 Perl 脚本。

 my ($head, $tail) = split /=/, $line;

我几乎所有的源文件$line 样式如下：

constant normalLines = <type value>     /*  hello world  */

我可以得到输出$tail = /* hello world */

今天我这样解析行时发现了一个bug（行中有两个=）

constant specialLine = <type value>     /*  hello = world  */

但现在输出是$tail = /* hello

如何修复我在上面的代码中仍然使用split() 的错误？我仍然想要输出$tail = /* hello = world */

Answer 1

你可以指定limit参数告诉split你最多需要多少个零件：

# split /PATTERN/,EXPR,LIMIT

my ($head, $tail) = split /=/, $line, 2;

Answer 2

@Thilo 关于如何解决这个问题是完全正确的，但问题的根源在于您正在以一种导致列表项被删除的方式进行列表分配。像你一样进行拆分会产生以下列表：

  ["constant specialLine ", " <type value>     /*  hello ", " world  */"]

当你在列表赋值中使用它时，你取前两个值，其余的被丢弃。