Comment séparer élégamment des paires de mots d'une chaîne en Perl?

Question

En perl, j'ai une chaîne qui ressemble à peu près comme

my $str = "one 10 two 20 three 30"; 

Maintenant, je voudrais diviser cette chaîne en paires mot-nombre, mais ont sans succès.

Je pensais que je pouvais faire un

my @pairs = split /([a-z]+[^a-z]+)/, $str; 

et je alors

$pairs[0] eq 'one 10 ' 
$pairs[1] eq 'two 20 ' 
$pairs[2] eq 'three 30' 

Cependant, je reçois

$pairs[0] eq ' ' 
$pairs[1] eq 'one 10 ' 
$pairs[2] eq ' ' 
$pairs[3] eq 'two 20 ' 
$pairs[4] eq ' ' 
$pairs[5] eq 'three 30' 

Maintenant, je peux utiliser grep pour mon résultat souhaité:

my @pairs = grep {$_ =~ /\S/} split /([a-z]+[^a-z]+)/, $str; 

Mais je me demandais s'il y avait une solution plus élégante à ce problème.

Answer 1

Je ne sais pas si elle est une solution élégante, vous pouvez utiliser la correspondance avec le modificateur /g:

my @pairs = $str =~ /(\w+\s+\d+)/g; 

Answer 2

Pourquoi les séparer par paires? Juste obtenir une liste de mots puis les prendre par deux.

my @words = split /\s+/, $str; 
while(@words) { 
    my($first, $second) = splice @words, 0, 2; 
    ...; 
    } 

Si vous voulez un hachage, il est encore plus simple:

my %pairs = split /\s+/, $str; 

Je trouve que beaucoup plus facile à comprendre et à transmettre à un autre programmeur qu'un regex.