Есть функция:
sub in()
{
my($digit,$array)=@_;
my $res=0;
for(my $i=0;$i<@$array;$i++)
{
if($digit==$$array[$i])
{
$res=1;
last;
}
}
return($res);
}
Она проверяет входит ли элемент в список.
Но, вот не задача, передаю массив из n элементов, работает правильно она, только до 25 элемента, а дальше не находит:(
передаваемые данные 100% верны, проверял....
Заранее спасибо!