Regular expression perl

Hi all,

I have a issue with a regex including two numbers :

Explanation:

Code:

---

1 2 3 4 5

my $range_schedule_month = [0-1][0-2] ;   chomp ($schedule_month = <STDIN>); last if ( $schedule_month =~ m/$range_schedule_month/) ;

---

Idea is that user have tu put STDIN number beetween "00 and 12" but no "00".

I have tried various things without success.

Does anyone have the solution ?

(I also speak french and spanish)

Hello Patit,

Maybe something like this :

Code:

---

1 2 3 4 5

# verification of 2 digits format last if ( $schedule_month !~ m/^\d\d$/) ; # verification if it is inside the range last if (( $schedule_month < 1 ) || ( $schedule_month > 12 )) ;

---

Wait to see advices from other people ... something else could be better :)

You can also merge them :

Code:

---

last if ( ($schedule_month !~ m/^\d\d$/) || ($schedule_month < 1) || ($schedule_month > 12) ) ;

---

Hi,
Try this regex :

Code:

---

^(?:0[1-9]|1[0-2])$

---

0 and a number between 1 and 9, or 1 and a number between 0 and 2.

Thanks a lot for all answers !

__dardanos__'s solution works perfectly and seems better for me. Regex is directly applied into STDIN.

Thanks again, you are so nice.

Pat

Tu peux aussi définir un rang de cette manière '01'..'12':

Code:

---

1 2 3 4

while (1) { chomp (my $schedule_month=<STDIN>); last if ( grep { $schedule_month eq $_ } '01'..'12'); }

---

ou avec List::MoreUtils:

Code:

---

1 2 3 4 5

use List::MoreUtils 'any'; while (1) { chomp (my $schedule_month=<STDIN>); last if any { $_ eq $schedule_month } '01'..'12'; }

---