Motif de correspondance et Regex en Perl

Question

J'ai une liste de mots qui apparaissent dans le format suivant [bmw, 32] [cadillac, 64]. Comment est-ce que j'utilise regex dans un script Perl pour extraire le contenu entre chaque ensemble de parenthèses afin que je puisse les imprimer dans le format que je veux? Je suis également intéressé par les utilitaires de ligne de commande pour cette solution, mais plus encore avec Perl, car je suis à l'aise avec elle.

Answer 1

 
my $s = "[bmw,32][cadillac,64]"; 
$s =~ /\[(.*)\]\[(.*)\]/; 
print $1; 
print $2; 

Answer 2

\[(.*?)\]

non gourmand correspondant vous donnera vos deux jetons. Cela suppose également qu'il n'y a pas de crochets dans les jetons que vous apportez.

Answer 3

$_ = "[bmw,32][cadillac,64][audi,144][toyata,6]"; 
%car = m{ \s* \[ (\pL+) , (\pN+) \] \s* }gx; 
printf "%-10s => %3d\n", $_ => $car{$_} for sort keys %car; 
__END__ 
audi  => 144 
bmw  => 32 
cadillac => 64 
toyata  => 6