|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 29 Dec 2000 15:26:25
To : Ellips
Subject : Re: Прабла у меня или торможение
--------------------------------------------------------------------------------
В твоём письме от Fri, 29 Dec 2000 00:34:50 +0300 написано:
e1d> Hi о великий ALL!!!
e1d> Тут прабла появилась я начинающий в ПЕРЛЕ и учу его на чужих примерах.
e1d> Так вот есть у меня CGI файл.
e1d> Hапример:
e1d> В этом файле проверяется какая ссылка от HTML например <a
href="/cgi-bin/cgi.cgi?reg">>
e1d>
e1d> #Это "cgi.cgi"
e1d> #!/usr/bin/perl
e1d> if($ENV{'REQUEST_METHOD'} eq 'GET'){
e1d> $query=$ENV{'QUERY_STRING'};
e1d> }
e1d> elsif($ENV{'REQUEST_METHOD'} eq 'POST'){
e1d> sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'});
e1d>
e1d> #Eсли Reg значит идти сюда:
e1d>
e1d> if ($query eq "reg"){ do "reg.cgi";
e1d> ®:
e1d> exit;
e1d> }
e1d>
e1d> А в reg.cgi находится форма например регистрации.
e1d> #Hапример это reg.cgi
e1d> #!/usr/bin/perl
e1d> sub reg{
e1d> print <<HTML;
<html>>
<head>>
e1d> <form method="POST" action="/cgi-bin/cgi.cgi"> #Здесь вроде так, а дальше?
<p>><input type="text" name="T1" size="20"><input type="submit"
e1d> value="Submit" name="B1"></p>
</form>>
</body>>
</html>>
e1d> HTML
e1d> }
e1d> ну я думаю понятно?
e1d> Теперь вопрос как сделать так чтобы он пользовался определением метода из
e1d> файла cgi.cgi ?
do "cgi.cgi";
Только зря ты учишься на _таких_ примерах. Возьми лучше умную книжку, благо их
есть.
--
Artem Chuprina E-mail: ran@ran.pp.ru
Programmer FIDO: 2:5020/371.32
Memonet Ltd. Phone: +7-095-284-1356
--- slrn/0.9.6.3-as (Linux)
* Origin: AKA с подствольным плюсомётом (2:5020/371.32)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
Re: Прабла у меня или торможение |
Artem Chuprina |
29 Dec 2000 15:26:25 |
|
|
