perl - 当最后一个字符是终止符时解决拆分功能

Question

我有这行包含 20 个字段的数据:

my $data = '54243|601|0|||0|N|0|0|0|0|0||||||99582|';

我用它来分割数据:

my @data = split ('\|'), $data;

然而，你只得到 19 条数据，而不是 20 条数据:

print scalar @data;

我可以手动 push一个空字符串到 @data如果最后一个字符是 |但我想知道是否有更糟糕的方式。

Answer 1

做

my @data = split /\|/, $data, -1;

-1 告诉 split包括空的尾随字段。

(您在正则表达式周围的括号不正确，导致 $data 不被视为 split 的参数。此外，除了一个异常(exception)，split 的第一个参数始终是正则表达式，因此最好将其指定为正则表达式而不是将被解释为正则表达式的字符串。)