проверка условия

[AnnA]

всем приветик.
что-то у меня не работает такая конструкция:

Код: [Выделить]

if($cat_id and ($cat_id=~m/1|2|3|5|6|7|8|9/))  { ...
здесь $cat_id принимает значения от 1..18
странного хочется? разве это не должно работать или мне пора домой, на сегодня уже хватит?
понимаю интуитивно, что такая вот, работающая запись - нечто не совсем то, что мне надо:

Код: [Выделить]

if($cat_id and ($cat_id==1 or $cat_id==2 or $cat_id==3 or $cat_id==5 or $cat_id==6 or $cat_id==7))

[synthez]

а так

 if($cat_id && ($cat_id =~ m/[1..9]/) ) { ...

[AnnA]

я так пробовала. правда ... несколько иначе: мне нужно исключить 4-ку. Т.е. [1..9] не подходит

[synthez]

=) а так пробовала

if ($cat_id && ($cat_id !~ m/4/) )
{ ...

[AnnA]

AnnA:
здесь $cat_id принимает значения от 1..18

[synthez]

2AnnA
если я тебя понимаю, то $cat_id должно принимать значение от 1 до 18, но исключить 4, или как?

[AnnA]

нет. нужно мне было вот это:

Код: [Выделить]

if($cat_id and ($cat_id <10 and $cat_id!=4) ) { ...

конечно, лучший вариант, чем куча or, но хуже, чем if($cat_id and ($cat_id=~m/1|2|3|5|6|7|8|9/))  { ...
и все равно. А если бы было не 18 цифр, а 18 слов, тогда как проверять - писать ту вот кучу or?

[Kannabismus]

Конструкция правильная и непонятно почему она не работает у Вас и работает у меня:
for my $cat_id (1..10){
   print "$cat_id" if $cat_id=~m/^(1|2|3|5|6|7|8|9|10)$/;
   print "-" if($cat_id and ($cat_id==1 or $cat_id==2 or $cat_id==3 or $cat_id==5 or $cat_id==6 or $cat_id==7));
   print "\\n";
}

perl test.pl
1-
2-
3-

5-
6-
7-
8
9
10

[AnnA]

Kannabismus  
спасибо за тактичность.
Вы правы:
это не работает: $cat_id=~m/1|2|3|5|6|7|8|9/
тогда как Ваш образец работает честно.