ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergej Babynin 2:5020/400 29 Dec 2000 01:34:50
To : All
Subject : Прабла у меня или торможение
--------------------------------------------------------------------------------
Hi о великий ALL!!!
Тут прабла появилась я начинающий в ПЕРЛЕ и учу его на чужих примерах.
Так вот есть у меня CGI файл.
Hапример:
В этом файле проверяется какая ссылка от HTML например <a
href="/cgi-bin/cgi.cgi?reg">
#Это "cgi.cgi"
#!/usr/bin/perl
if($ENV{'REQUEST_METHOD'} eq 'GET'){
$query=$ENV{'QUERY_STRING'};
}
elsif($ENV{'REQUEST_METHOD'} eq 'POST'){
sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'});
#Eсли Reg значит идти сюда:
if ($query eq "reg"){ do "reg.cgi";
®:
exit;
}
А в reg.cgi находится форма например регистрации.
#Hапример это reg.cgi
#!/usr/bin/perl
sub reg{
print <<HTML;
<html>
<head>
<form method="POST" action="/cgi-bin/cgi.cgi"> #Здесь вроде так, а дальше?
<p><input type="text" name="T1" size="20"><input type="submit"
value="Submit" name="B1"></p>
</form>
</body>
</html>
HTML
}
ну я думаю понятно?
Теперь вопрос как сделать так чтобы он пользовался определением метода из
файла cgi.cgi ?
--- ifmail v.2.15dev5
* Origin: Nacamar Data Communications GmbH (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
