Форум: "Потрепаться";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Вниз

Помогите сделать такой скрипт   Найти похожие ветки 

← →
Дмитрий   (2001-11-26 13:46) [8]


while (!eof(PF)) {
$r = <PF>;
if ($pass=$r) {
print $q->h1("OK");
close(PF);
}


а так?

open(F, "a.txt");
while (<F>) {
chomp;
eval {print "Found!"; exit;} if $_ eq $pass;
}
print "Not found";


---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c