Tatarnikoff все записи автора Всем привет!

Я изучаю Perl, смотрю у вас тут ни одного сообщения про него нет...
Вобщем возникло затруднение при написании кода, и если кто-то в этом разбирается, то буду рад помощи! :)

Проблем вот в чем:

code:


sub check_sells

{



open(CHECKFILE, "sells.csv"); #открываем файл CSV 

#(записи типа:

#first;one

#apple;yellow

#mango;green

#...



while ()#читаем его построчно

{

push(@sells, $_);#и каждую строчку добавляем в массив @sells

}

close(CHECKFILE);



$tmp=qq[$FORM{'pin'};$FORM{'pwd'}];#это искомая строка



foreach $line (@sells)#просамтриваем массив @sells построчно

{

  if ($line ne "$tmp")#если не находим, то ищем дальше

  {

  next;

  }

  else #если совпало, то переходим к другой подпрограмме и выходим

  {

  &step2;

  exit;

  }

}



&error_sells; #а если вообще не нашли, то переходим сюда.

}

Проблема в том, что этот в результате выполнения всегда выполняется &error_sells;

я уже не знаю в чём может быть проблема...