Comment est-ce que je peux limiter la fonction de séparation de Perl?

Question

J'ai essayer ceci:

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

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

print "@str2"; 

Je cherche dans $str[0] = Group et $str[1]= ALL:ALL:Good.

Cela ne fonctionne pas. Quel serait le problème?

Answer 1

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

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

Answer 2

Vous ne voulez pas dire ça?

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

Sinon, vous partagerez la chaîne :, qui semble un peu inutile.

Answer 3

Pour utiliser la limite avec répartition

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

De PerlDoc split function:

Si LIMITE est spécifié et positif, il représente le nombre maximum de champs EXPR sera divisé en , si le nombre réel de champs retourné dépend du nombre de tim es PATTERN correspond à EXPR. Si LIMIT est non spécifié ou zéro, les champs vides sont supprimés (qui utilisateurs potentiels de pop ferait bien à retenir). Si LIMIT est négatif, est traité comme si une limite arbitraire avait été spécifiée. Notez que la division d'un EXPR qui évalue à la chaîne vide renvoie toujours la liste vide , quelle que soit la limite spécifiée.