regex - numeros - expresiones regulares java alfanumerico

¿Cómo puedo encontrar todas las coincidencias con una expresión regular en Perl?

Question

Tengo texto en el formulario:

Name=Value1
Name=Value2
Name=Value3

Usando Perl, me gustaría hacer coincidir /Name=(.+?)/ cada vez que aparezca y extraer el (. +?) Y insertarlo en una matriz. Sé que puedo usar $1 para obtener el texto que necesito y puedo usar =~ para realizar la comparación de expresiones regulares, pero no sé cómo obtener todas las coincidencias.

Answer 1

En lugar de usar una expresión regular, es posible que prefieras probar un motor de gramática como:

• Parse::RecDescent
• Regexp::Grammars

He dado un fragmento de una respuesta Parse::ResDescent antes en SO. Sin embargo, Regexp :: Grammars se ve muy interesante y está influenciado por las reglas y gramáticas de Perl6 .

Así que pensé que tendría un crack en Regexp :: Grammars ;-)

use strict;
use warnings;
use 5.010;
my $text = q{
Name=Value1
Name = Value2
Name=Value3
};
my $grammar = do {
use Regexp::Grammars;
qr{
<[VariableDeclare]>*
<rule: VariableDeclare>
<Var> /= <Value>
<token: Var> Name
<rule: Value> <MATCH= ([/w]+) >
}xms;
};
if ( $text =~ $grammar ) {
my @Name_values = map { $_->{Value} } @{ $/{VariableDeclare} };
say "@Name_values";
}

El código anterior da salida a Value1 Value2 Value3 .

¡Muy agradable! La única advertencia es que requiere Perl 5.10 y que puede ser excesivo para el ejemplo que proporcionó ;-)

/ I3az /

Answer 2

Lo siguiente le dará todas las coincidencias a la expresión regular en una matriz.

push (@matches,$&) while($string =~ /=(.+)$/g );

Answer 3

Una m//g en el contexto de la lista devuelve todas las coincidencias capturadas.

#!/usr/bin/perl
use strict; use warnings;
my $str = <<EO_STR;
Name=Value1
Name=Value2
Name=Value3
EO_STR
my @matches = $str =~ /=(/w+)/g;
# or my @matches = $str =~ /=([^/n]+)/g;
# or my @matches = $str =~ /=(.+)$/mg;
# depending on what you want to capture
print "@matches/n";

Sin embargo, parece que está analizando un archivo de configuración de estilo INI. En ese caso, recomendaré Config::Std .

Answer 4

Utilice un módulo Config:: para leer los datos de configuración. Para algo tan simple como eso, podría buscar ConfigReader::Simple . Es bueno mantenerse fuera de la maleza siempre que pueda.

Answer 5

my @values;
while(<DATA>){
chomp;
push @values, /Name=(.+?)$/;
}
print join " " => @values,"/n";
__DATA__
Name=Value1
Name=Value2
Name=Value3