faqs.org.ru

 Главная > Программирование > Web-программирование >

FAQ по языку Perl и CGI

-----------------------------------------
Составление FAQ начато: 20 окт 1998
Текущаяя версия от:     18 фев 1999 19:13
-----------------------------------------

-----------------------------------------
Авторы ответов:
  Павел    Аммосов   <apv@i-connect.ru>
  Артур    Пенттинен <artur@elma.fi>
  Михаил   Поляков   <polk@inforis.nnov.su>
  Григорий Строкин   <grg@philol.msu.ru>
-----------------------------------------

=========================================
ЧАСТО ОТВЕЧАЕМЫЕ ОТВЕТЫ ДЛЯ
   FIDO7.RU.CGI.PERL
                       и
   FIDO7.RU.PERL
=========================================


---------------------------------------------------------------------
Присылайте также свои собственные ответы! (инфо в конце текста)
---------------------------------------------------------------------


======================================================================
              Общий план FAQ fido7.ru.cgi.perl
======================================================================
A. Перл как язык

(1) Где взять перл и все с ним связанное
(2) Где взять документацию
(3) Как сделать на перле то-то: основные возможности языка
(4) ?
---------------------------------------------------------------------
B. Перл как средство для работы с CGI

(5) Как заставить WWW сервер выполнять CGI-скпирты
(6) Где взять примеры CGI-скриптов и документацию по CGI
(7) Как в CGI сделать то-то: основные приемы работы с CGI
(8) ?
======================================================================
======================================================================

======================================================================
              A. ПЕРЛ КАК ЯЗЫК
======================================================================

---------------------------------------------------------------------
(1) Где взять перл и все с ним связанное
---------------------------------------------------------------------
(Q 1.1) Где можно взять перл?
(Q 1.2) Где можно перл под винды (OS/2, Mac, PDP, amiga) слить?
(Q 1.3) Где можно скачать перловскую библиотеку для работы с  WWW?
(Q 1.4) C www.cpan.org слишком долго качается, нет ли где поближе?
(Q 1.5) Я скачал модуль Lib::Module. Как его установить?
(Q 1.6) Как автоматизировать процесс установки библиотек и модулей?
(Q 1.7) У меня нет root-привилегий. Можно ли использовать модуль
CPAN для установки модулей в этом случае?

---------------------------------------------------------------------
(2) Где взять документацию по перлу
---------------------------------------------------------------------
(Q 2.1) Какие есть книжки про Перл?
(Q 2.2) Где взять стандартную документацию про такое-то свойство перла?
(Q 2.3) Я под виндами, man у меня нет, где брать стандартную
документацию?
(Q 2.4) Где взять описание модуля Lib::Module?
(Q 2.5) Есть ли подробный большой FAQ по перлу?
(Q 2.6) Я крутой разработчик, где лежит описание того, как сделать
perldoc/manpage к своей библиотеке?
(Q 2.7) А есть ли где в интернете хорошие доки по перлу?
(Q 2.8) А где можно найти русскую доку по перлу?

---------------------------------------------------------------------
(3) Как сделать на перле то-то (основные возможности языка)
---------------------------------------------------------------------
(Q 3.1) Как пользоваться функцией pack (getpwuid, dmbopen)?
(Q 3.2) Как узнать размер файла (дату создания, атрибуты, разрешения на
доступ)
(Q 3.3) Как отправить почту из скрипта на Perl?
(Q 3.4) Как отправить почту с вложениями (attachments)?
(Q 3.5) Как написать модуль?

(ГЛАВА (3) ТОЛЬКО НАЧАТА)
======================================================================

======================================================================



======================================================================
                     ИТАК...
                А. ПЕРЛ КАК ЯЗЫК
======================================================================

---------------------------------------------------------------------
(1) Где взять перл и все с ним связанное
---------------------------------------------------------------------

(Q 1.1) Где можно взять перл?

(A) На CPAN == Comprehensive Perl Archive Network.  Homepage CPAN --
http://www.cpan.org/ -- там берут все, связанное с перлом.  Собственно
исходники новейшей версии перла берут из файла
http://www.perl.com/CPAN/src/latest.tar.gz (на самом деле с www.perl.com
стоит редирект на ближайший, по мнению www.perl.com, mirror).



(Q 1.2) Где можно перл под винды (OS/2, Mac, PDP, amiga) слить?

(A) Там же, где и под UNIX, то есть на CPAN, только не в src/, а в
ports/. Например, порты перла для платформы win32 лежат в
http://www.perl.com/CPAN/ports/win32/. Там лежат два порта:
стандартный (GURUSAMY-порт) и порт фирмы ActiveState (обычно устаревшие
версии перла).

Gurusamy (он же Standard) содержит исходники Perl 5.005, бинарный дистрибутив
Perl 5.004 и ряд библиотек для него.
  perl5.00402-bindist04-bc.zip
  perl5.00402-bindist04-bc.tar.gz
      A popular binary distribution of Perl for the Win32 platform...
  perl5.005_52.patch.gz
  perl5.005_52.tar.gz
      Latest development release of Perl.  This is only for developers and
      others who like to sit on bleeding edges (pun irrelevant)...

Каталог ActiveState на CPAN уже ничего не содержит, кроме рекомендации искать
их порт на www.activestate.com.

ActivePerl основан на 5.005.

из README для Active Perl:
  The ActivePerl package contains all you'll need to get Perl up and running --
  even with a Web server!

  ActivePerl includes:
  - Perl for Win32 - binary of core Perl distribution.
  - Perl for ISAPI - IIS plug-in that makes Perl CGI lightning fast.
	- PerlScript - ActiveX scripting engine, like JavaScript or VBScript with a
		Perl brain.
  - Perl Package Manager - Perl extension installer and manager.

Perl на Apple Macintosh посвящена страница
http://www.iis.ee.ethz.ch/~neeri/macintosh.html

Для Netware Perl дают на /CPAN/ports/netware. Кроме того, perl входит в
поставку Netware 5.

Для мейнфреймов IBM System/390 perl 5.005 компилируется прямо из стандартной
unix поставки.

Для IBM AS/400 Perl можно взять опять-таки на CPAN в каталоге ports.

А вот для pdp-11 Perl не бывает.

(Q 1.3) Где можно скачать перловскую библиотеку для работы с  WWW?

(A) Там же, где и все, относящееся к перлу -- на CPAN.  Полный
список всех модулей и библиотек -- http://www.cpan.org/CPAN.html


(Q 1.4) C www.cpan.org слишком долго качается, нет ли где поближе?

(A) Есть. Полный список зеркал находится в
ftp://ftp.nluug.nl/pub/languages/perl/CPAN//MIRRORED.BY, там можно
найти funet или что там поближе, или даже российские зеркала, например
ftp://ftp.sai.msu.su:/pub/lang/perl/CPAN/ (иногда в дауне).


(Q 1.5) Я скачал модуль Lib::Module. Как его установить?

(A) Обычно модуль приходит в формате tar+gzip, типа module-0.01.tar.gz.
Вам необходимо его развернуть:
  gzip -dc module-0.01.tar.gz | tar xf -
и перейти в образовавшуюся директорию, например module-0.01:
  cd module-0.01
Обычно там находятся несколько файлов. Для вас будут важными
следующие:
  README    - что это за модуль
  INSTALL    - как его поставить
  Makefile.PL  - перловый скрипт для генерации Makefile
Обычно инсталляция происходит следующим образом:
  perl Makefile.PL - генерация Makefile
  make all  - сборка модуля
  make test  - тестирование модуля
  make install  - инсталляция модуля
Необходимо внимательно смотреть, не возникли ли какие ошибки во время
первых трех команд. Внимание: вы должны иметь административные
привелегии для инсталлирование модуля в системе (обычно как root).

Но, если вы их не имеете, то можете инсталлировать модуль у себя.
Для этого вам необходимо выбрать, где это будет делаться. Для примера,
в $HOME/lib/perl5. Необходимо создать эти директории, если их нет:
  mkdir ~/lib
  mkdir ~/lib/perl5
Затем, при генерации Makefile для модуля, вы должны указать, где вы
хотите инсталлировать модуль:
  perl Makefile prefix=$HOME
Все остальные шаги без изменений. В результате вы получите
альтернативное место, где у вас будут находиться модули.
Например, у меня это выглядит так:
  artur@disco:~ (681) ls -alFg ~/lib/perl5/
  total 704
  drwxr-sr-x   8 artur    staff        512 Oct 06 15:53 ./
  drwxr-sr-x   9 artur    staff       1024 Oct 08 10:50 ../
  drwxr-sr-x   4 artur    staff        512 Mar 31 1998  aix/
  drwxr-sr-x   2 artur    staff        512 Aug 06 13:40 CPAN/
  -r--r--r--   1 artur    staff     126951 Jul 24 19:37 CPAN.pm
  drwxr-sr-x   3 artur    staff        512 Mar 31 1998  man/
  drwxr-sr-x  31 artur    staff       1024 Sep 09 15:41 site_perl/

Для того, чтобы их использовать, есть несколько путей:
1. указывать при запуске perl в командной строке:
  perl -I$HOME/lib/perl5 -I$HOME/lib/perl5/site_perl script.pl
2. завести переменную шелла PERL5LIB:
  для sh (bash,zsh,ksh)
  PERL5LIB=$HOME/lib/perl5:$HOME/lib/perl5/site_perl
  export PERL5LIB
  для csh (tcsh)
  setenv PERL5LIB $HOME/lib/perl5:$HOME/lib/perl5/site_perl
3. указывать в начале скриптов дополнительные библиотеки:
  use lib "/home/you/lib/perl5";
  use lib "/home/you/lib/perl5/site_perl";
Данный случай подходит к CGI-скриптам, которые не наследуют ваших
переменных окружения.


(Q 1.6) Как автоматизировать процесс установки библиотек и модулей?

(A) Скачивание и установка вручную -- достаточно сложное занятие,
требующее постоянного вмешательства с вашей стороны.
Можно простым способом: сделать su (желательно), набрать
perl -MCPAN -e shell.  Если это первый запуск модуля CPAN, вам задатут
серию вопросов на тему URL вашего любимого зеркала CPAN. После этого
все просто: если вы знаете название модуля или библиотеки, то
набираете, скажем, install Net::NNTP.  Тогда этот модуль (для работы с
NNTP) сам ищется на CPAN, сам скачивается, компилируется,
устанавливается.  Все, поставили, можно выходить и использовать вновь
установленный модуль.  Если название точно не известно, то набираем
там же help и испльзуем различные команды поиска типа i NNTP.


(Q 1.7) У меня нет root-привилегий. Можно ли использовать модуль
CPAN для установки модулей в этом случае?

(A) При использовании CPAN-модуля вам необходимо сконфигурировать его
таким образом, чтобы он сам инсталлировал модули туда, куда вы
укажете. Для этого вам необходимо подредактировать файл
~/.cpan/CPAN/MyConfig.pm: указать в строке
  'makepl_arg' => q[prefix=/home/you],
и теперь всегда при автоматической инсталляции модули будут ставится к
вам в $HOME/lib/perl5
Более подробно обо всем этом можно прочитать в документации к
ExtUtils::MakeMaker.

---------------------------------------------------------------------
(2) Где взять документацию по перлу
---------------------------------------------------------------------

(Q 2.1) Какие есть книжки про Перл?

(A) Две классические книги по перлу, первая имеется в русском переводе и
продается в магазинах:

   Рандал Шварц, Том Кристиансен.
   Изучаем перл (aka Llama book)

   Лэрри Уолл, Том Кристиансен, Рандал Шварц.
   Programming Perl (aka Camel book, на русском, кажется, еще нет)

Llama book - учебник для начинающих,
Camel book - справочное руководство.

(Q 2.2) Где взять стандартную документацию про такое-то свойство перла?

(A) Перл приходит с полным набором документации и набором программ
для переведения в разные форматы. Обычно для подробного ознакомления с
некоторой особенностью перла пишут "perldoc perlсвойство" или "man
perlсвойство".  Базовый набор "свойств" таков:

     Основы          perldata, perlvar, perlsyn, perlop, perlsub
     Запуск          perlrun, perldebug
     Функции         perlfunc
     Objects         perlref, perlmod, perlobj, perltie
     Data Structures perlref, perllol, perldsc
     Modules         perlmod, perlmodlib, perlsub
     Regexps         perlre, perlfunc, perlop, perllocale
     Moving to perl5 perltrap, perl
     Linking w/C     perlxstut, perlxs, perlcall, perlguts, perlembed
     Various         http://www.perl.com/CPAN/doc/FMTEYEWTK/index.html
                     (not a man-page but still useful)


     perl          О перле вообще
     perldelta     Что нового в последней версии перла
     perlfaq       FAQ
     perltoc       Подробное оглавление ко всей документации
     perldata      Типы данных
     perlsyn       Синтаксис языка
     perlop        Арифметические, логические, строковые
                     операции и их приоритет
     perlre        Регулярные выражения (обработка текста и поиск)
     perlrun       Опции командной строки
     perlfunc      Встроенные функции
     perlvar       Специальные переменные
     perlsub       Как писать свои функции (процедуры)
     perlmod       Устройство и принцип работы модулей
     perlmodlib    Модули: создание собственных библиотек
     perlmodinstall Поиск и установка модулей и библиотек на CPAN
     perlform      "Форматы", или шаблоны для выводимых данных
     perllocale    Поддержка интернационализации
     perlref       Ccылки и указатели на данные
     perldsc       Введение в структурные типы данных
     perllol       Структуры данных: массивы и списки
     perltoot      Введение в объектно-ориентированное
                     программирование
     perlobj       Объекты в перле
     perltie       Связь объектов с обыкновенными переменными
     perlbot       Perl OO tricks and examples
     perlipc       Связь между процессами: pipes, sockets,
                     сигналы и др.
     perldebug     Отладка программ
     perldiag      Сообщения об ошибках
     perlsec       Вопросы безопасности
     perltrap      Возможные грабли и ловушки
     perlport      Как писать портабельные программы
     perlstyle     Стиль программирования на перле
     perlpod       Формат стандартной документации и документация,
                     встраиваемая в исходные тексты программ
     perlbook      О книгах про перл

     --- (для совсем крутых) ---

     perlembed     Способы внедрения перл-программ в программы на C/C++
     perlapio      Собственный API, использумый в исходниках перла
     perlxs        XS -- программирование перловских библиотек,
                     используемых вместе с библиотеками на C
     perlxstut     Учебник по XS
     perlguts      Внутренние функции перла для разработчиков
     perlcall      Соглашения о вызове перловских функций из C
     perlhist      История и полный список всех версий перла


(Q 2.3) Я под виндами, man у меня нет, где брать стандартную
документацию?

(A) Перл для win32 поставляется с программой perldoc (пользоваться:
"perldoc perlfunc" и т. д.) а также с документациией в HTML: если
хочешь perldoc perlfunc, ищи perlfunc.html.


(Q 2.4) Где взять описание модуля Lib::Module?

(A) Формат стандартной документации по перлу (pod) обладает
возможностью встраивания прямо в тексты программ, а программа perldoc
-- возможностью извлечения этой документации. Поэтому, чтобы получить
документацию по модулю Math::Trig, просто наберите perldoc Math::Trig
-- perldoc найдет этот модуль и покажет документацию из него.  Если
модуль не является частью какой-то библиотеки, а существует сам по
себе, например, CGI.pm тогда просто perldoc CGI.pm или даже perldoc
CGI.  NB: программа perldoc не очень расторопна, поэтому при установке
перла под UNIX производится создание manpages для всех модулей, так
что man CGI или man Math::Trig покажет быстрее, чем perldoc.


(Q 2.5) Есть ли подробный большой FAQ по перлу?

(A) Да, он тоже входит в набор стандартной документации.  Отправная
точка -- perldoc perlfaq, это оглавление, из которого можно узнать,
что FAQ состоит из девяти больших частей.


(Q 2.6) Я крутой разработчик, где лежит описание того, как сделать
perldoc/manpage к своей библиотеке?

(A) Про это говорят в perldoc perlpod, в man pod2man.


(Q 2.7) А есть ли где в интернете хорошие доки по перлу?

(A) Да. На мой взгляд, серия статей Рандала Шварца для Unix Review
Perl Columns -- лучшее введение в перл, и намного интереснее и
полезнее книг Llama и Camel.  Почитать их можно на
http://w3.stonehenge.com:80/merlyn/UnixReview/

Почему я считаю это лучшим введением в перл? Потому что это отдельные
небольшие статьи, каждая из которых иллюстрирует конкретные
возможности перла на примере написания программы для достаточно
простой задачи.  Все же статьи охватывают практически весь спектр
возсожностей перла -- от написания скрипта в одну строку, который
может поменять Иванов на Сидоров во всех файлах в дереве директорий,
до основ объектно ориентированного программирования и принципов
создания собственных модулей и библиотек.


(Q 2.8) А где можно найти русскую доку по перлу?

(A) Если нет возможности купить в магазине, то есть кое-что и в
Интернете: книга маслова "Введение в перл", например.
http://citforum.ru/koi/internet/perl_tut/ Есть и другие, много, особо
хороших не видел.


---------------------------------------------------------------------
(3) Как сделать на перле то-то (основные возможности языка)
---------------------------------------------------------------------

(Q 3.1) Как пользоваться функцией pack (getpwuid, dmbopen)?

(A) man perlfunc или "perldoc -f имя_функции | pod2text"


(Q 3.2) Как узнать размер файла (дату создания, атрибуты, разрешения на
доступ)

(A) С помощью так называемых файловых тестов, которые имеют вид
(-тест "имя файла"), например:
    (-s "file.txt") размер файла
    -e              существует ли файл
    -w              доступен ли на запись
    -M              количество дней со дня модификации
    -t              является ли терминалом

(Q 3.3) Как отправить почту из скрипта на Perl?

(A)
	Способ только для Unix oт Alex Efros
	----
	open MAIL, '|/path/to/your/sendmail -t'; # Pipe к sendmail
	print MAIL "From: mailrobot@my.host\n",
	           "To: webmaster@my.host\n",
		   "Subject: Wow! I got some mail for you!!!\n\n",
		    $message;
	close MAIL;
	-----
	Подробности: man sendmail, http://www.sendmail.org
	
	У меня не Unix! Что делать?
	Вероятно, Вам поможет модуль Net::SMTP
			
(Q 3.4) Как отправить почту с вложениями (attachments)?
(A)
	Возьмите на CPAN модуль MIME::Tools и прочтите от него README.

(Q 3.5) Как написать модуль?

(A)
Простейший случай:

Сам модуль представляет из себя файл с именем МойМодуль.pm следуещего
содержания:
package МойМодуль;
require Exporter;

@ISA = qw(Exporter);

@EXPORT = qw(идентификаторы для экспорта: подпрограммы, имена переменных и
пр.);
# Теперь после того, как вы use Этотмодуль в своей программе, у вас все
# упомянутые здесь идентификаторы станут видны.

# И/или
@EXPORT_OK = qw(идентификаторы для экспорта: подпрограммы, имена переменных и
пр.);
# Идентификаторы, прописанные здесь будут видны в Вашей пргорамме как
# МойМодуль::Идентификатор (подпрограммы) или $МойМодуль::Идетификатор
# (переменные)
# Или Вы можете написать use МойМодуль qw(Ид1 Ид2 $Ид3); и все будет как в
# первом случае. Это рекомендуемый вариант.

... ваши подпрограммы и пр ....

1; # Обязательно
# конец МойМодуль

Программа, его используящая:
use МойМодуль qw(...);
# Ну и далеее

Подробности смотрите в perlmod(1), Exporter(3pm), Camel Book
======================================================================
ИНФОРМАЦИЯ для тех, кто хочет добавить ответы!
  Присылайте ответ (grg@philol.msu.ru) с указанием секции,
  но без номера (у меня нумерация автоматическая) в
  таком формате:

    ----------------------------------------------
    faq_Q(Что такое хорошо, а что такое
     плохо?)

    faq_A Давно я не читал стихотворения Маршака,
    так что наизусть не помню.
    -----------------------------------------------

Слова faq_Q и faq_A будут автоматически заменены на
нужные номера. А аргумент faq_Q еще и вставлен в
оглавление.  Кто хочет узнать, как это делается, см.
инфо про GNU m4 в самом конце.
======================================================================

======================================================================
              Б. ПЕРЛ КАК СРЕДСТВО РАБОТЫ С CGI
======================================================================

---------------------------------------------------------------------
(5) Как заставить WWW сервер выполнять CGI-скпирты
---------------------------------------------------------------------
(Q 5.1) Что такое CGI и как с ним работать
(Q 5.2) Как заставить WWW сервер исполнять CGI-программы?
(Q 5.3) Мой CGI-скрипт не работает! Как установить причину?
(Q 5.3) Ошибки HTTP 500 и 403. Что это значит и что с ними делать
(Q 5.4) Как заставить браузеры не кешировать выдаваемый результат?
(Q 5.5) Как перенаправить клиента на другой URL?
(Q 5.6) Как загрузить файл на сервер?
(Q 5.7) Как получить файл по URL?

======================================================================

======================================================================



======================================================================
                            ИТАК...
                Б. ПЕРЛ КАК СРЕДСТВО РАБОТЫ С CGI
======================================================================

---------------------------------------------------------------------
(5) Как заставить WWW сервер выполнять CGI-скпирты
---------------------------------------------------------------------

(Q 5.1) Что такое CGI и как с ним работать

(A) CGI -- Common Gateway Interface.  Cтандарт интерфейса внешних программ
с http-сервером.

Как работать:
    HTTP -- клиент-серверный протокол, следовательно  со стороны CGI, как
серверного процесса, все взаимодействие выглядит следующим образом:
  1. Получение данных от клиента
  2. Обработка данных
  3. Выдача ответа клиенту.
Пункты 1 и 3 я в кратце опишу здесь, а 2, надеюсь, сделате сами.
Начнем с п.3 как наиболее простого.

3. Выдача данных клиенту: Обычно клиенту выдают текст в формате HTML (ничто
не мешает Вам отправить ему и картинку/видео/etc). Для того, чтобы сервер и
клиент вас поняли, необходимо сказать, что вы выдаете, c помощью заголовка
Content-Type: mime-type/mime-subtype. Обатите внимание на регистр и
последовательность -- если вы скажите нечто типа Content_type, то сервер
вас скорее всего не поймет. (Сообщение типа "500 Internal
Server Error" будет симптомом).

Пример:

print "Content-Type: text/html\n"; # Мы выдаем текст в формате HTML. Также
                                   # можно: text/plain -- простой текст, в
                                   # брузере отобразится аналогично тексту,
                                   # заключённому между тегами <pre></pre>.
                                   # image/gif -- Картинка, формат gif
                                   # video/mpeg -- mpeg-видео
                                   # И целая куча других форматов, см.
                                   # файл mime.types из apache
print "\n"; # <-- еще одна пустая строка, обозначает конец вывода наших
            # заголовков. ВАЖНО!

# Теперь мы можем написать свой текст клиенту
print "
<html>
<head>
<title>Моя первая CGI программа</title>
</head>
<body>
<h1>Моя первая CGI программа</h1>
</body>
</head>
";
## Все.

1. Прием данных от клиента

Взаимодействие с клиентом обеспечивается так: Он заполняет форму своими
значениями, нажимает на кнопку "submit", броузер кодирует данные
соответствующим образом и отправляет их серверу.

Определение форм
Производится тегами <form> и </form>. Тег определения форм имеет следующие
аттрибуты
  action -- скрипт на сервере, который будет запущен на сервере для
    обработки данных формы.
  method -- тип взаимодействия с сервером. Может иметь значения GET и
    POST.
  + еще некоторые специальные, которые вы можете посмотреть в учебнике

Формы не могут быть вложенными.

Элементы ввода
Определяются тегами <input>, <textarea> и <select>
тег <input>:
  <input type=checkbox> -- Элемен ввода "Опция"
  <input type=hidden> -- Элемент ввода, который не виден пользователю
  <input type=file> -- в Netscape Navigator позволяет загрузить файл на сервер
  <input type=image> -- Изображение. Если по нему шелкнуть, это вызовет submit
    формы и серверу будут выданы две переменные вида name.x и name.y, где name
    -- то, что вы пропишете в name=... тега <input>
  <input type=password> -- Элемент ввода Пароль. Позволяет ввести строку,
    которая на экране отображается звездочками. Никаких методов защиты при
    передаче на сервер не применяется
  <input type=radio> -- Радиокнопки
  <input type=reset> -- Кнопка сброса значений формы на начальные
  <input type=submit> -- Кнопка отправки формы на сервер
  <input type=text> -- строка ввода
Все теги <input> имеют аттрибут name -- Наименование элемента. Служит для
идентификации при передаче на сервер, а также другие типа value, width, etc,
название и назначение которых можно опять-таки посмотреть в настоящем
руководстве.

Тег <textarea> -- Поле многострочного ввода.
Тег <select> -- списочный выбор

Пример:
  <form action=/cgi-bin/myscript.pl method=GET>
  Имя: <input type=string name=name><p>
  Пол: <input type=radio name=gender value=male>Мужской
       <input type=radio name=gender value=female>Женский
  <input type=submit><input type=reset>
  </form>

Как это будет видно в моей программе?
Это определяется методом формы, GET или POST
В случае GET сервер установит переменную окружения QUERY_STRING в виде
name1=vaue1&name2=value2&..&nameN=vauleN.
В случае POST аналогичная строка будет записана на стандартный ввод. Ее
длину можно получить через переменную окружения CONTENT_LENGTH.
В обоих случаях данные будут закодированы по следующему алгоритму:
  Eсли ASCII код символа больше 32 и меньше 128, то он будет выдан без
     изменения.
  если символ - пробел, то он заменится на "+" (плюсик, без кавычек)
  все остальное преабразуется в вид %xx, где xx -- шестнадцатеричный
     код сивола. Если вам повезло и у вас "Русский apache", то он
     преобразует его в нормальную кодировку.
  Декодирование на perl
  tr/+/ /;
  s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
  (списано из CGI.pm)

На самом деле, можно не возится со всем этим, а использовать модуль CGI.pm
(Имеется в поставке Perl 5.004 и более поздних.  Если у вас perl версии 4
или 1, нужно срочно взять на CPAN новую версию perl)

Самый большой и последний пример
Предположим мы делаем поисковую систему, тогда у нас должен быть HTML с
формой и программа, которая будет выполнять поиск.
----------- резать здесь ----------
<html>
<head>
<title>Поиск</title>
</head>
<body>
<h1>Чего искать?</h1>
<form action=/cgi-bin/search.pl method=get>
Строка для поиска: <input type=text name=string width=70><p>
Искать в <input type=checkbox name=searchin value=internet>Интернет
  <input type=checkbox name=searchin value=intranet>Интранет
  <input type=checkbox name=searchin value=extranet>Экстранет<p>
<input type=submit value=Давай!><input type=reset value="Нет, не надо">
</form>
</body>
</html>
----------- резать здесь ----------

Программа:

----------- резать здесь ----------
#!/usr/bin/perl -- поменяйте, как надо
use CGI;

print "Content-Type: text/html\n\n"; # Не забудьте про два "\n"

$string = param("string");
@searchin = param("searchin"); # searchin это checkbox и его значения
             # возвращаются списком

# Искать мы сегодня ничего не будем
print "<html>
<body>
<h1>Мы сегодня ничего не ищем</h1>
Но, если бы искали, то: <br>
Искали бы строку <b>$string</b><br>\n";
print "В <b>" . join(" ", @searchin) . "</b>\n";
print "
</body>
</html>
";
----------- резать здесь ----------

Да, кстати, если вы собираетесь писать в файлы с помощью CGI-программ, не
забывайте про file locking.

(Q 5.2) Как заставить WWW сервер исполнять CGI-программы?

(A)

Apache для Unix/Win32
Надо поравить конфигурационные файлы (я расчитываю, что у вас default
конфиги apache)

Способ 1
srm.conf
Директива ScriptAlias
  ScriptAlias /cgi-bin/ /usr/local/apache/cgi-bin/
и в файле access.conf прописать
  <Directory /usr/local/apache/cgi-bin/>
  Options ExecCGI
  </directory>
(если приглядется, там нужно только раскоментировать опции)
Это позволит вам помещать программы в каталог
/usr/local/apache/cgi-bin/ и они будут видны по URL
http://you/cgi-bin/program_name

Способ 2
Добавить в srm.conf директиву
  AddHandler cgi-script .cgi
и вы сможете вызывать cgi-программу из любого каталога. Но она должна иметь
окончание .cgi и для этого каталога должно быть разрешено исполнение CGI
(Options ExecCGI в access.conf, написано выше).
Оба способа можно без проблем использовать совместно.

(Q 5.3) Мой CGI-скрипт не работает! Как установить причину?
Прежде чем читать дальше, убедитесь в том, что:
  1) Вы запустили скрипт с командной строки (не через CGI!!!) и
	   он работает, а не говорит 'compilation stopped due to errors'
  2) Скрипт не только работает, но и выдает нужный заголовок с пустой
	   строкой после него
	3) (Для многопользовательских систем) Вы сделали тоже под пользователем,
	под которым работает сервер (su -m имя_пользователя -c script в Unix)
	   и он столь же благополучно работает

(Q 5.3) Ошибки HTTP 500 и 403. Что это значит и что с ними делать
(A) error_log для того и служит, чтобы туда смотреть :-)
Основные причины:
Ошибка 403 "Forbidden"
Возникает, если сервер не может отдать вам содержимое по причине отсутствия
полномочий.
Проверьте:
  Может ли user (для apache под Unix это обычно nobody), под которым работает,
  сервер исполнять файл?
  В частности, может ли сервер исполнять интерпретатор (в случае
скриптовых языков)?
  Можно ли для этого каталога исполнять CGI? (Options ExecCGI для
apache)

Ошибка 500 "Internal Server Error"
Возникает в случае внутренней ошибки.
Проверьте:
  Выводите ли вы строку "Content-Type:"?
  Правильно ли вы ее выводите? (Content-type, Content_Type --
неправильно)
  Заканчиваете ли вы хедеры пустой строкой? (Нельзя написать
print "Content-Type: text/html\n";
print "<HTML>\n";

Надо писать:
print "Content-Type: text/html\n\n"; # Два "\n"
print "<HTML>\n";)

  Также, эта ошибка возникает, если CGI-программа завершилась с ненулевым
кодом возврата, что часто встречается в случае некомпилируемости вашего
скрипта perl'ом.

Совет: делайте
use CGI::Carp qw(fatalsToBrowser)
во время отладки, тогда вам выдадут сообщение об ошибке perl.

======================================================================
ИНФОРМАЦИЯ для тех, кто хочет добавить ответы!
  Присылайте ответ (grg@philol.msu.ru) с указанием секции,
  но без номера (у меня нумерация автоматическая) в
  таком формате:

    ----------------------------------------------
    faq_Q(Что такое хорошо, а что такое
     плохо?)

    faq_A Давно я не читал стихотворения Маршака,
    так что наизусть не помню.
    -----------------------------------------------

Слова faq_Q и faq_A будут автоматически заменены на
нужные номера. А аргумент faq_Q еще и вставлен в
оглавление.  Кто хочет узнать, как это делается, см.
инфо про GNU m4 в самом конце.
======================================================================


======================================================================
---------------------------------------------------------------------
  Свежая версия FAQ всегда будет находиться в Интернете:
    часть A. Перл как язык
         http://isabase.philol.msu.ru/~grg/ru.perl.FAQ.part-A.txt
    часть B. Перл как средство работы с CGI
         http://isabase.philol.msu.ru/~grg/ru.perl.FAQ.part-B.txt
---------------------------------------------------------------------
======================================================================

---------------------------------------------------------------------
Этот текст набран в редакторе VIM -- Vi IMproved (http://www.vim.org/)
---------------------------------------------------------------------
Timestamps, нумерция глав и вопросов, а также оглавление в этом тексте
сгенерированы автоматически с помощью макропроцессора GNU m4.
(ftp://ftp.nc.ras.ru/pub/gnu/m4-1.4.tar.gz) GNU m4 рулит!!
----------------------------------------------------------------------
m4-оригинал: http://isabase.philol.msu.ru/~grg/ru.perl.FAQ/
---------------------------------------------------------------------

---------------------------------------------------------------------
18 фев 1999 19:13, Григорий Строкин (grg@philol.msu.ru)
---------------------------------------------------------------------


(Q 5.4) Как заставить браузеры не кешировать выдаваемый результат?

(A)
	Выдавайте заголовки в таком виде:
	
print "Content-Type: type/sub-type\n"; # Подставьте Ваш тип/подтип
print "Pragma: no-cache\n"; # Для HTTP/1.0 клиентов
print "Cache-Control: no-cache\n"; # Для HTTP/1.1
print "Expires: Thu Jan  1 00:00:00 1970\n\n"; # Это уже любой браузер должен
					       # понять

(Q 5.5) Как перенаправить клиента на другой URL?

(A)
	В заголовке напишите: 	
print "Status: 302\n";
# Или 301. Разница состоит в том, что по стандарту 301 значит "перемещён
# навсегда", а 302 -- "перемещён временно"
print "Location: ВАШ Новый URL\n";
# URL должен быть указан абсолютный
print "URI: ВАШ новый URL\n\n"; # Для http/1.0

Подробности: см. rfc1945(http/1.0),  rfc2068(http/1.1)

(Q 5.6) Как загрузить файл на сервер?

(A)
	В поставку CGI.pm входит пример file_upload.cgi.
	Подробности CGI(3)

(Q 5.7) Как получить файл по URL?

(A)
	Возьмите на CPAN библиотеку libwww-perl и смотрите lwpcook(3), там
	написаны основы использования библиотеки и есть примеры.

======================================================================
---------------------------------------------------------------------
  Свежая версия FAQ всегда будет находиться в Интернете:
    часть A. Перл как язык
         http://isabase.philol.msu.ru/~grg/ru.perl.FAQ.part-A.txt
    часть B. Перл как средство работы с CGI
         http://isabase.philol.msu.ru/~grg/ru.perl.FAQ.part-B.txt
---------------------------------------------------------------------
======================================================================

---------------------------------------------------------------------
Этот текст набран в редакторе VIM -- Vi IMproved (http://www.vim.org/)
---------------------------------------------------------------------
Timestamps, нумерция глав и вопросов, а также оглавление в этом тексте
сгенерированы автоматически с помощью макропроцессора GNU m4.
(ftp://ftp.nc.ras.ru/pub/gnu/m4-1.4.tar.gz) GNU m4 рулит!!
----------------------------------------------------------------------
m4-оригинал: http://isabase.philol.msu.ru/~grg/ru.perl.FAQ/
---------------------------------------------------------------------

---------------------------------------------------------------------
18 фев 1999 19:13, Григорий Строкин (grg@philol.msu.ru)
---------------------------------------------------------------------

Вернуться в раздел "Web-программирование" - Обсудить эту статью на Форуме
Главная - Поиск по сайту - О проекте - Форум - Обратная связь

© faqs.org.ru