如何限制Perl的拆分功能？

Question

我已經嘗試此：

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

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

print "@str2"; 

我期待在$str[0] = Group和$str[1]= ALL:ALL:Good。

它不工作。什麼是問題？

Answer 1

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

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

Answer 2

你不是這個意思嗎？

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

否則，你會被分割字符串:，這似乎是一種毫無意義的。

Answer 3

要使用限制具有分裂

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

從PerlDoc split function：

如果指定限值和正的，它 表示EXPR將被分成 字段的最大數目， 雖然返回的實際字段數 取決於 tim的數量es PATTERN在EXPR中匹配。如果 LIMIT未指定或爲零，則刪除尾部 空字段（其中 pop的潛在用戶可以很好地記住 ）。如果LIMIT爲負數，則將其視爲如同指定了任意大的極限值 。請注意， 將計算得到的EXPR拆分爲 空字符串總是返回空列表，不管指定的是LIMIT 。