Raccourcissement RegEx pour Perl

Question

J'ai créé une expression rationnelle en Perl d'environ 95 caractères, je souhaite la raccourcir à 78 caractères mais je ne trouve pas de méthode appropriée. Tout accueil conseils, l'expression régulière est similaire au code ci-dessous, idéalement il y a quelque chose de similaire à \ en C.

my ($foo, $bar, $etc) = $input_line =~ 
/^\d+: .... (\X+)\(\X(\d+.\d+|\d+)\/\X(\d+.\d+|\d+) (\X+)\)$/ 

Answer 1

Perl interpole regex, de sorte que vous pourriez faire quelque chose comme ça

my $input_line = '123: .... X(X1.1/X5 XXX)'; 

my $dOrI = '(\d+.\d+|\d+)'; 
my ($foo, $bar, $etc) = $input_line =~ 
/^\d+: .... (\X+)\(\X$dOrI\/\X$dOrI (\X+)\)$/; 

print "$foo, $bar, $etc"; 

---

sortie -.

X, 1.1, 5 

Answer 2

Il y a une façon de dire regex sauter des espaces intégrés et les commentaires, donc non seulement vous pouvez diviser Je le trouve en plusieurs lignes, mais je le commente aussi, le formate en sections, etc. Je pense que c'est «x», mais je n'ai pas de documentation à portée de main pour le moment, alors cherchez dans la page man.

Vous changeriez à quelque chose comme:

my ($foo, $bar, $etc) = $input_line =~/
     ^\d+: .... 
     (\X+)\(
      \X(\d+.\d+|\d+) # numerator 
      \/\X(\d+.\d+|\d+) # denominator 
      \ (\X+)\)$/x # mind the escaped space! 

Il est également possible de construire des pièces d'expression régulière séparément par le préfixe de chaîne « » et les qr combiner à l'aide de substitution variable. Quelque chose comme

my $num_re = qr/(\X+)\(\X(\d+.\d+|\d+)\/\X(\d+.\d+|\d+)/; 
my ($foo, $bar, $etc) = $input_line =~ /^\d+: .... $num_re (\X+)\)$/; 

Je n'ai pas fait cela depuis longtemps, donc je ne suis pas sûr de savoir si des drapeaux sont nécessaires.

Answer 3

Une chose que je vois dans l'expression rationnelle est la période « \ d + \ d + '.

Vous savez que '.' dans une regex correspond à n'importe quel caractère, pas seulement un caractère de période réelle.

Si vous souhaitez spécifier uniquement un caractère de période réel, vous devrez utiliser '\.' au lieu.

L'autre chose est que vous pourriez être en mesure de remplacer '\ d + \ d + |. \ D +' avec '\ d + \ d +.?

[EDIT] une chose, si vous utilisez la interpolez regex plus d'une fois et ne le changez pas entre les utilisations, (disons, dans une boucle), vous devez utiliser l'option/o pour que Perl compile toute l'expression rationnelle afin qu'elle n'ait pas besoin d'être compilée à chaque fois.