Код программы:

---

#!/usr/bin/perl                              # используйте -T для CGI-скриптов
  $SIG{ALRM} = sub { die "$0 timed out" };     # эти 2 строки не работают под
  alarm 900;                                   # Windows, но они необязательны
  use strict;                                  # спасает от глупых ошибок
  use Fcntl;                                   # O_EXCL, O_CREAT и O_WRONLY
  use CGI       qw (:standard);                # читайте "perldoc CGI"
  use CGI::Carp qw (fatalsToBrowser);          # вывод ошибок к browser-у
  $CGI::POST_MAX = 131072;                     # максимальный ввод = 128 KB
  my $foto = param ('foto');                   # имя файла и одноврем. handle
  my $DIR  = '/home/alex/pics'                # не забудьте "chmod 777 pics"
  my $JS   = "                                   // JavaScript-функция для пред-
                                                 // варительной проверки формы

В последнее время во многих организациях, использующих Oracle в качестве основной СУБД, возникает задача создания web-интерфейса для различных Интернет(Интранет) приложений. Способов организации такого интерфейса существует великое множество. Можно использовать Oracle Web Toolkit, написать его на Jave,Pythone,PHP,Delphi,C....Cписок может продолжаться бесконечно. Автор этих строк является сторонником того, что самый быстрый (имеется ввиду, конечно по времени разработки..я не буду спорить по поводу быстродействия такого решения, конечно если аналогичное приложение переписать на mod_perle оно будет работать быстрее), способ создания такого рода приложений возможен на связке Apache+Perl. Как и при работе с большинством СУБД, будем использовать DBI:

В настоящее время практически невозможно найти область применения, в которой бы не использовались базы данных. Для Web базы данных играют очень важную роль, позволяя создавать интернет-магазины, ленты новостей, сайты банков, и т.п.

Для этих целей в Perl существует множество различных модулей, которые оптимизованы для работы с конкретными типами баз данных. Но как правило эти модули имеют разные наборы функций для работы с базами. Для упрощения переноса приложений был разработан модуль DBI. Он построен по модульной архитектуре -- для каждой СУБД существует драйвер, реализующий специфику работы с конкретной базой данных. Сначала мы рассмотрим основные функции работы с базами данных, а затем перейдем к практическому примеру применения DBI.

>Введение

Мне кажется, что я должен немного пояснить о чем будет идти речь. По большей части я сам писал и просматривал различные CGI и пытался разобраться с тем, как убрать те несколько проблем, которые, по-моему, являются дырками в системе. На этом я закруглюсь перейду к дыркам.

>Введение

Мне кажется, что я должен немного пояснить о чем будет идти речь. По большей части я сам писал и просматривал различные CGI и пытался разобраться с тем, как убрать те несколько проблем, которые, по-моему, являются дырками в системе. На этом я закруглюсь перейду к дыркам.

Каждый, кто начинает программировать на Перле, сталкивается с аббревиатурой CPAN, что значит Comprehensive Perl Archive Network ("всеобъемлющий архив по Перлу") CPAN - прекрасный ресурс, где можно отыскать все что угодно, связанное с Перлом. В мире много зеркал CPAN, так что выбирайте то, которое вам ближе географически. Для этого сходите на ftp://ftp.funet.fi/pub/languages/perl/CPAN/CPAN, где есть список всех зеркал.

Немного об организации архива. Каждое зеркало центрального сервера содержит файл CPAN/Roadmap или CPAN/Roadmap.html, а также CPAN/modules/Readme, где есть описания всех содержащихся модулей. Вы скажете - Зачем нам эти модули? Мы и сами можем написать... Ну если так - то пожалуйста, пишите сами. А те, кто желает сэкономить время и силы, зайдите на CPAN и найдите для себя уже готовый модуль.

   Может, кто-то скажет, а зачем выносить HTML код в отдельный файл если его можно спокойно писать в скрипте? Да конечно в скрипте можно писать HTML код, но просмотреть полностью «собранную», или частично «собранную» страницу которую выводит скрипт, возможно только при его нормальной работе, а во время отладки скрипта, как правило, возникают некоторые трудности. Потом при смене дизайна, опять же, править HTML код в скрипте сущая каторга, сколько раз я слышал о нареканиях со стороны Web-мастеров, что понять какие куски кода и в какой последовательности выносятся невозможно, так как, по большей части, они не программисты и вникать в код скрипта не намерены. И так далее и тому подобное, поэтому, все-таки будем разделять скрипты от HTML кода…

Установка

Для использования интерфейсов rnSQL и MySQL к модулям DataBase Dependent/DataBase

Independent (DBI/DBD) или MsqlPerl и MysqlPerl необходимо иметь следующие компоненты :

Perl 5

В вашей системе должны быть установлены работающие экземпляры Perl 5. Ко времени

Регулярные выражения Perl - мощный инструмент для поиска и обработки текста, в то же время позволяющий реализовать в одной строке программного кода довольно сложные операции.

В качестве примера можно привести такую задачу: нужно заменить в какой-либо строке все знаки "+" на пробелы. В воплощении на C это выглядело бы так: