Ошибки с условием в перл.
Например у меня есть $codeuser = "31323334353637383919252B";
Я циклом делю все по парам т.е.
31
32
33
34
35
36
37
38
39
19
Потом проверяю присутствие неразрешенной пары (в данном случае - 19,25,2B).
И почему-то постоянно скрипт глючит. Помогите плиз... может я как-то неправильно условие задаю?
Са скрипт:
for ($i=0;$i<length($codeuser);$i+=2)
{
$_=substr($codeuser,$i,2);
if (($_ < 20) || ($_ eq '2B') || ($_ eq '2C') || ($_ eq '2F') || ($_ eq '3A') || ($_ eq '3B') || ($_ eq '3C') || ($_ eq '3D') || ($_ eq '3E') || ($_ eq '5B') || ($_ eq '5C') || ($_ eq '5E') || ($_ eq '3A') || ($_ eq '7B') || ($_ eq '7C') || ($_ eq '7F') || ($_ eq '22') || ($_ eq '23') || ($_ eq '24') || ($_ eq '25') || ($_ eq '26') || ($_ eq '27'))
{
print "error";
$_='';
exit;
}
}
$codeuser='';
#Вот плин... Какая-то ошибка в скрипте.
|