0 Пользователей и 1 Гость просматривают эту тему.
Chs:Дык два варианта - либо через for, либо весь файл в массив считывать.
Wyclef:Можно в переменную считать ($/=undef) и регекспом чекить.
if(!index($all_emails_in_one_str,$check_email)){add_email($check_email);}
open F, ...$/ = undef;$file = ; #все содержимое файла в переменной
while () { $exist++ if $_ eq "новое мыло"; last if $exist;}unless ($exist) { #добавляем мыло}
Wyclef:Wyclef
open (FILE, "nmail.txt");while () { chomp; exit if $_ eq $mail;}open (FILE, ">>nmail.txt");print FILE "$mail\\n";
Wyclef:Убрал лишнее:
спасибо. где ты такой синтаксис нашел?
будет останавливатся весь скрипт, а мне надо что б он продалжал работу
Wyclef:1. Нафиг тебе метки NMAIL - достаточно просто last оставить;
Wyclef:2. Ну и запишешь ты в файл nmail.txt 10 одинаковых строк при 10-ти вызовах. Или так и надо?
тот код что был последним не записывает если есть одинаковая строчка