|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Pavel V. Ammosov 2:5020/52 25 Apr 2001 02:52:18
To : All
Subject : Re: Help
--------------------------------------------------------------------------------
>Приветствую тебя ALL,
>Люди кто ни будь помогите как вот этот код в CGI обработать?
>
><html>
><head>
><title>Login</title>
></head>
><body>
><form method="post" action="cgi-bin/login.cgi?login"> #Прошу обратить
>внимание на слово "LOGIN" енто он должен обрабатывать енто все в
>подпрограмме (процедуре) с именем логин.
> <div align="center"><center><h6>Логин:<br>
> <input TYPE="text" NAME="user_name" SIZE="20" MAXLENGTH="20"></h6>
> </center></div><div align="center"><center><h6>Пароль:<br>
> <input TYPE="password" NAME="password" SIZE="20" MAXLENGTH="20"></h6>
> </center></div><div align="center"><center><p><input TYPE="submit"
>VALUE="Вход"> <input
> TYPE="reset" VALUE="Очистить"></p>
> </center></div>
></form>
></body>
></html>
>
>Объясните пожалуйста поподробнее.
>
>P.S. Без наворотов типа CGI.pm будит лучше.
CGI.pm -- это нормально, а не наворот.
my $cmd = $ENV{QUERY_STRING};
my %subs = (
'login'=>\&login,
'etc'=>\&etc
);
if ($subs{$cmd}) {
$subs{$cmd}->();
} else {
print "oops, неправильная команда $cmd";
}
sub login {
print "Login здесь";
}
sub etc {
print "etc здесь";
}
Про QUERY_STRING читать спецификацию на CGI 1.1,
трюк с хешем ссылок на подпрограммы объяснен в Cookbook.
--
Pavel Ammosov O \
apavel@aha.ru __ )
http://isabase.philol.msu.ru/~apavel/ )
wget -O - isabase.philol.msu.ru/~apavel/key.asc|pgp -fka O /
--- slrn/0.9.6.3 (Linux)
* Origin: Zenon N.S.P. news server (2:5020/52.0)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
Re: Help |
Pavel V. Ammosov |
25 Apr 2001 02:52:18 |
|
|
