¿Cómo puedo usar una expresión regular para validar la entrada del mes?

Question

Voy a configurar este ejemplo Perl fragmento para validar durante meses en una fecha:

Algunos escenarios que desea aceptar son:

MM M

#!/usr/bin/perl 
use strict; 
use warnings; 

my $pattern; 
my $month = "(0[1-9]|1[012])"; 
my $day = "(0[1-9]|[12]\d|3[01])"; 

system("cls"); 

do { 

    print "Enter in a month: "; 
    chomp($pattern = <STDIN>); 

    # We only want to print if the pattern matches 
    print "Pattern matches\n" if ($pattern =~ /$month/); 


} while ($pattern ne "Q"); 

Cuando ejecuto esto, filtra correctamente de 01-12, pero cuando cambio la expresión regular a:

$month = "(0?[1-9]|1[012])"; 

entonces la expresión regular permite a 13, 14, etc ... lo que GIV es?

Answer 1

Si realmente les gusta usar expresiones regulares, que necesita para poner^$ y, como

"^(0?[1-9]|1[012])$"

que no coincidirá con el 13, 14 ....

Answer 2

No debe usar una expresión regular para validar el rango numérico. La expresión regular que desea es:

/^(\d+)$/ 

Entonces,

if ($1 >= 1 && $1 <= 12) { 
    # valid month 
} 

Esto es mucho más fácil de leer que cualquier expresión regular para validar un rango numérico.

Como un lado, Perl evalúa expresiones regulares por buscando dentro del objetivo para una expresión coincidente. Por lo tanto:

/(0[1-9]|1[012])/ 

busca un 0 seguido de 1 a 9, o un 1 seguido por 0, 1 o 2. Esto se correspondería con "202" por ejemplo, y muchos otros números. Por otro lado:

/(0?[1-9]|1[012])/ 

búsquedas para una opcional 0 1 a 9, o un 1 seguido por 0, 1 o 2. Por lo que "13" partidos aquí, ya que contiene un 1, igualando la primera mitad de la expresión regular Para hacer que sus expresiones regulares funcionan como se espera,

/^(0?[1-9]|1[012])$/ 

El ^ y $ anclaje de la búsqueda al inicio y al final de la cadena, respectivamente.

Answer 3

para darle consejo - mes número "120" coincide también en su versión :-)

Cambio:

my $month = "(0[1-9]|1[012])"; 

a

my $month = /^(0[1-9]|1[012])$/; 

y luego jugar más con ella

Answer 4

aquí hay una forma

while(1){ 
    print "Enter in a month: "; 
    $pattern = <STDIN>; 
    chomp($pattern); 
    if ($pattern =~ /^(Q|q)$/){last;} 
    if ($pattern =~ /^[0-9]$/ || $pattern =~ /^[0-9][12]$/) { 
     print "Pattern matches\n"; 
    }else{ 
     print "try again\n"; 
    } 
} 

salida

$ perl perl.pl 
Enter in a month: 01 
Pattern matches 
Enter in a month: 000 
try again 
Enter in a month: 12 
Pattern matches 
Enter in a month: 00 
try again 
Enter in a month: 02 
Pattern matches 
Enter in a month: 13 
try again 
Enter in a month: 

Answer 5

No utilice expresiones regulares.

Perl tiene la capacidad de evaluar automáticamente como un número o una cadena según el contexto. 01-09 evaluará a 1-9 en el contexto numérico. Por lo tanto, sólo tiene que comprobar un valor:

print "Enter in a month: "; 
chomp($pattern = <STDIN>); 
# We only want to print if the pattern matches 
print "Pattern matches\n" if ($pattern < 13 && $pattern > 0); 

Answer 6

[^d>12|d<0] OR ^[d>12|d<0] 

Answer 7

(0 [1-9] | 1 [012])

los parens están tan puede utilizar esta dentro de otro bloque, para ejemplo, si a juego para todo un formato de fecha aaaa-MM-dd

fuente: http://www.regular-expressions.info/dates.html

Answer 8

"^(1[012]|0?[1-9])$" sería mejor porque la expresión regular es asse ssed primero el primero. Supongamos que quiere hacer coincidir '12' y escribe "^(0?[1-9]|1[012])$", luego '1' se elegirá porque 0?[1-9] se toma primero.

Answer 9

Para probar month/year:

^(0?[1-9]|1[012])\/([2-9][0-9)]{3})$