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; #а если вообще не нашли, то переходим сюда.

}