Comment puis-je utiliser une expression régulière pour valider la saisie du mois?

Question

J'installe cet exemple Perl extrait pour valider pendant des mois dans une date:

Certains scénarios que je veux accepter sont:

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"); 

Quand je lance cela, il filtres correctement 01-12 mais quand je change la regex:

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

alors l'expression rationnelle permet 13, 14, etc ... ce GIV es?

Answer 1

Si vous aimez vraiment utiliser regex, vous avez besoin de mettre^et $, comme

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

il ne correspond pas à 13, 14 ....

Answer 2

Vous ne devez pas utiliser une expression régulière pour effectuer une validation de plage numérique. L'expression régulière que vous voulez est:

/^(\d+)$/ 

Ensuite,

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

Ceci est beaucoup plus facile à lire que toute expression régulière pour valider une plage numérique. En outre, Perl évalue les expressions régulières par en recherchant dans la cible pour une expression correspondante. Alors:

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

recherche un 0 suivi de 1 à 9, ou un 1 suivi de 0, 1 ou 2. Cette correspondrait à « 202 », par exemple, et bien d'autres numéros. D'autre part:

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

recherche un option 0 1 à 9, ou un 1 suivi de 0, 1 ou 2. Donc « 13 » correspond ici parce qu'il contient 1, correspondant à la première moitié de l'expression rationnelle. Pour rendre vos expressions régulières fonctionnent comme prévu,

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

Le ^ et $ ancre la recherche au début et à la fin de la chaîne, respectivement.

Answer 3

Pour vous donner hint - mois numéro "120" correspond également dans votre version :-)

Change:

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

à

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

puis jouer plus avec elle

Answer 4

voici un sens

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"; 
    } 
} 

sortie

$ 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

Ne pas utiliser des expressions régulières.

Perl a la capacité d'évaluer automatiquement comme un nombre ou une chaîne en fonction du contexte. 01-09 évaluera à 1-9 dans le contexte numérique. Ainsi, vous pouvez simplement vérifier une valeur:

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])

les parens sont donc vous pouvez l'utiliser dans un autre bloc, pour exemple, si correspondant à un ensemble de format de date aaaa-mm-jj

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

Answer 8

"^(1[012]|0?[1-9])$" serait mieux parce que l'expression régulière est asse ssed premier un premier. Disons que vous voulez correspondre à '12' et vous écrivez "^(0?[1-9]|1[012])$", alors '1' sera choisi car 0?[1-9] est pris en premier.

Answer 9

Pour tester month/year:

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