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

Вниз

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

← →
anod   (2001-11-24 11:11) [5]

на Перле?
Что-то типа...

#!/usr/bin/perl -w

use strict;
use CGI;

my $q = CGI->new;
my $pass = $q->param("pass");
my $r;

print $q->header(-charset => "cp-1251");
print $q->start_html;

open(PF, "+passfile");
while (!eof(PF)) {
$r = <PF>;
if ($pass=$r) {
print $q->h1("OK");
close(PF);
}
else {
print $q->h1("BAD");
close(PF);
}
}
print $q->end_html;

---

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

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

Наверх

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