代码之家 › 专栏 › 技术社区 › joe

如何限制Perl的拆分函数?

split perl

1

joe · 技术社区 · 15 年前

我尝试过:

$string ="Group: ALL:ALL:Good";

@str2  = split (/:/,':',2);

print "@str2";

我在寻找 $str[0] = Group 和 $str[1]= ALL:ALL:Good .

它不起作用。问题是什么?

3 回复 | 直到 15 年前

1

3

Tomalak 15 年前

my $string = "Group: ALL:ALL:Good";
my @str    = split(/:/, $string, 2);

print $str[0];
print $str[1];

2

11

Thomas 15 年前

你不是故意的吗?

@str2  = split (/:/,$string,2);

否则,您将拆分字符串 : 这似乎毫无意义。

3

2

Space 15 年前

使用带拆分的限制

@array = split /PATTERN/,EXPR,LIMIT;

如果限值为正,则为表示最大 expr将拆分为的字段, 尽管实际字段数返回取决于时间模式在expr中匹配。如果限制未指定或为零,尾随删除空字段(其中潜在的流行音乐用户会做得很好记住)如果极限为负,则为被当作任意大的已指定限制。注意拆分计算结果为空字符串始终返回空列表,不受限制明确规定。