Быстрый старт в Perl. Функции работы с массивами. Циклы for и foreach
Данная статья написана для людей, которым в силу непреодолимых обстоятельств приспичило срочно изучить Перл. Для меня таким обстоятельством стало то, что мой компьютер стал WEB-сервером, а я, соответственно, WEB-мастером. Учиться принято на чужих ошибках и опыте, поэтому предлагаю Вашему вниманию свой опыт изучения Перла.
Сразу нужно пояснить, для кого это все написано. Если Ваш сервер работает на платформе UNIX, то это я должен читать Вашу статью. У меня же установлен Windows NT workstation 4.0 (RUS) плюс Service Pack 3. Когда пришло время сделать из компьютера WEB-сервер, я было кинулся ко встроенным Службам узла WEB, но быстро понял, что это мне не нравится (почему?). И тут один добрый человек посоветовал поставить Xitami WEB Server от iMatix Corporation (http://www.imatix.com/), который и стоит по сей день.
Что касается самого Перла, то здесь несколько сложнее. Покопавшись по различным Перловым серверам (www.perl.org , www.perl.com) я узнал, что версий Перла настолько много, что выбрать что-нибудь конкретное довольно сложно. При этом каких-нибудь вразумительных рекомендаций по поводу выбора той или иной версии нигде нет. Перепробовав почти все версии для Windows, я остановил свой выбор на Active Perl (http://www.activestate.com/).
Человеку, избалованному всякими Виндовозами и Дельфями, писать программы на Перл довольно непривычно, поэтому настоятельно рекомендую сразу установить Perl Builder. Взять его можно на www.solutionsoft.com. Там лежала тридцатидневная Демо версия.
Ну, думаю, пора переходить непосредственно к делу. В общем случае, скрипт на Перл, как и любая другая программа, работает так:
- получает данные
- обрабатывает данные
- выдает результаты
Передать данные скрипту можно двумя методами - GET и POST. Разница между ними в том, что при использовании GET данные постоянно болтаются в строке адреса браузера, напимер:
Httр://treagraf.tasur.edu.ru/cgi-bin/price.pl?Category=POWER&Description=varta
В этом случае скрипт B_price.pl берет данные в переменной окружения QUERY-STRING.
$data=$ENV{"QUERY_STRING"};
При использовании метода POST данные передаются на стандартный вход скрипта. Длинна блока данных берется в переменной CONTENT_LENGTH:
Read(STDIN,$data,$ENV{"CONTENT_LENGTH"});
Теперь эти данные нужно перевести в удобоваримый вид, поскольку они закодированы.
Стандартным соглашением служит замена пробелов знаками плюс и затем кодировка оставшихся недопустимых символов с помощью ASCII-кодов в шестнадцатиричной форме, перед которыми ставится знак (%). Пример:
Http://treagraf.tasur.edu.ru/cgi-bin/B_price.pl?Category=%C2%E8%E4%E5%EE&Description=%E0%E1%E2%E3
Это значит:
Http://treagraf.tasur.edu.ru/cgi-bin/B_price.pl?Category=Видео&Description=абвг
Декодировать строку запросов в первый раз лучше самому. На вопрос "а как?" есть множество ответов, переписывать которые нет смысла. Приведу лишь короткий пример:
Заменяем знаки (+) на пробелы
$query = ~ s/\+/ /g;
Потом заменяем все сочетания знака (%), после которого следуют шестнадцатиричные цифры, на соответствующий символ ASCII
$query =~ s/%({2})/pack("C", hex($1))/eg;
Я пользуюсь тем, что предлагает Perl Builder:
#! E:\perl5\bin\perl &GetFormInput; # вызов подпрограммы получения данных $Category = $field{"Category"}; # получаем данные из поля Category $Description = $field{"Description"}; # получаем данные из поля Description $Page = $field{"Page"}; # получаем данные из поля Page
В конце скрипта помещаем подпрограмму "прозрачного" чтения данных.
Sub GetFormInput { (*fval) = @_ if @_ ; local ($buf); if ($ENV{"REQUEST_METHOD"} eq "POST") { read(STDIN,$buf,$ENV{"CONTENT_LENGTH"}); } else { $buf=$ENV{"QUERY_STRING"}; } if ($buf eq "") { return 0 ; } else { @fval=split(/&/,$buf); foreach $i (0 .. $#fval){ ($name,$val)=split (/=/,$fval[$i],2); $val=~tr/+/ /; $val=~ s/%(..)/pack("c",hex($1))/ge; $name=~tr/+/ /; $name=~ s/%(..)/pack("c",hex($1))/ge; if (!defined($field{$name})) { $field{$name}=$val; } else { $field{$name} .= ",$val"; #if you want multi-selects to goto into an array change to: #$field{$name} .= "\0$val"; } } } return 1; }
Второй этап работы скрипта - обработка данных - полностью на Ваше усмотрение. Проверяйте полученные данные на правильность, пишите их в файл, делайте что хотите.
И, наконец, Вам нужно выдать какие-то результаты броузеру клиента, причем так, чтобы броузер правильно их отобразил. То есть, выдавать результаты нужно в HTML. Это делается просто: (тоже можно по-разному)
Print "Content-type: text/html", "/n/n"; #обязательная строка print "
В поле Category Вы ввели: ", $Category, "
Все это касается скриптов, получающих данные из формы на странице HTML. При этом страница с формой - отдельно, скрипт - отдельно. Можно сделать красивее и удобнее: объединить страницу и скрипт в единое целое. Для этого скрипт пишется по схеме:
- При первом запуске скрипт рисует HTML страницу с формой и ссылкой в тэге ACTION на самого себя. Первый запуск определяется по отсутствию входных данных.
- Если входные данные есть, то получаем их, обрабатываем и выдаем результаты.
#! E:\perl5\bin\perl if (($ENV{"QUERY_STRING"} eq "") or ($ENV{CONTENT_LENGTH}=0)) { # генерируем страницу с формой } else {# получаем данные, обрабатываем и выдаем результат}
Гостевая книга |
---|
Общий алгоритм работы гостевой книги таков:
1. Если посетитель хочет сделать
запись в книгу, то
1.1 Получаем данные
1.2 Записываем их в файл или в базу данных
1.3 Говорим спасибо на HTML и предлагаем
почитать другие записи
2. Если посетитель хочет почитать записи в
книге, то
2.1 Читаем записи из файла или из базы данных
2.2 Выводим их красиво в HTML
Для удобства восприятия я оформил пункты 1 и 2 отдельными скриптами add_guestbook.pl и read_guestbook.pl соответственно. Сообщения гостевой книги хранятся в текстовом файле построчно, т.е. на каждую запись - строка. Так сделано для удобства чтения этого файла. Пример одной записи:
Sat Dec 5 13:31:20 1998&Наташа&студентка&Good&Для начала хорошо. Успехов на данном поприще Вам, Александр!&нету@пока&194.226.60.34
Вот описание полей
рассматриваемой гостевой книги.
Name - имя, фамилия, отчество, кличка - на
усмотрение посетителя
Work - профессия, род занятий
RadioButton - три кнопки: понравилось (Good), не
понравилось (Bad), пофигу (Different)
Text - text box комментариев и примечаний
Email - обратный адрес
add_guestbook.pl - запись в книгу
#! e:\perl5\perl # Первая строка, как обычно require "ssi-pl.pl"; # Я использую навигационную панель в виде SSI-включения. Для этого используется модуль ssi-pl.pl if (($ENV{"QUERY_STRING"} eq "") or ($ENV{CONTENT_LENGTH}=0)) { # Если нет входных данных, то генерируем страницу с формой print <
HTML DoInclude("_menu.htm"); # Это SSI-включение навигационной панели. print <
|
<
|
Вы не указали свое имя, E-mail, либо не заполнили сам текст Вашего отзыва. Вернитесь, пожалуйста, на страницу формы и заполните требуемые поля. Назад |
"."\n" ; print " | "; print " | "."\n" ;
print "
"."\n" ; DoInclude("D:/InetPub/wwwroot/_menu.htm"); print "
| "."\n" ;
print " "."\n" ; print " | Ваши данные"."\n" ; print " приняты. Спасибо. \n" ; print ""; print " | "."\n" ;
print "
"."\n" ; print " |
read_guestbook.pl - чтение книги
#! e:\perl5\perl # Первая строка, как обычно require "ssi-pl.pl"; # Я использую навигационную панель в виде SSI-включения. Для этого используется модуль ssi-pl.pl open(InFile, "guestbook.txt") || die; # Открываем файл с записями гостевой книги. @lines=HTML DoInclude("D:/InetPub/wwwroot/_menu.htm"); print <
|
Нам пишут:
Данная статья написана для людей, которым в силу непреодолимых обстоятельств приспичило срочно изучить Перл. Для меня таким обстоятельством стало то, что мой компьютер стал WEB-сервером, а я, соответственно, WEB-мастером. Учиться принято на чужих ошибках и опыте, поэтому предлагаю Вашему вниманию свой опыт изучения Перла. Сразу нужно пояснить, для кого это все написано. Если Ваш сервер работает на платформе UNIX, то это я должен читать Вашу статью. У меня же установлен Windows NT workstation 4.0 (RUS) плюс Service Pack 3. Когда пришло время сделать из компьютера WEB-сервер, я было кинулся ко встроенным Службам узла WEB, но быстро понял, что это мне не нравится (почему?). И тут один добрый человек посоветовал поставить Xitami WEB Server от iMatix Corporation (), который и стоит по сей день. Что касается самого Перла, то здесь несколько сложнее. Покопавшись по различным Перловым серверам (www.perl.org , www.perl.com) я узнал, что версий Перла настолько много, что выбрать что-нибудь конкретное довольно сложно. При этом каких-нибудь вразумительных рекомендаций по поводу выбора той или иной версии нигде нет. Перепробовав почти все версии для Windows, я остановил свой выбор на Active Perl (). Человеку, избалованному всякими Виндовозами и Дельфями, писать программы на Перл довольно непривычно, поэтому настоятельно рекомендую сразу установить Perl Builder. Взять его можно на www.solutionsoft.com. Там лежала тридцатидневная Демо версия. Ну, думаю, пора переходить непосредственно к делу. В общем случае, скрипт на Перл, как и любая другая программа, работает так:
Передать данные скрипту можно двумя методами - GET и POST. Разница между ними в том, что при использовании GET данные постоянно болтаются в строке адреса браузера, напимер: Httр://treagraf.tasur.edu.ru/cgi-bin/price.pl?Category=POWER&Description=varta В этом случае скрипт B_price.pl берет данные в переменной окружения QUERY-STRING. $data=$ENV{"QUERY_STRING"}; При использовании метода POST данные передаются на стандартный вход скрипта. Длинна блока данных берется в переменной CONTENT_LENGTH: Read(STDIN,$data,$ENV{"CONTENT_LENGTH"}); Теперь эти данные нужно перевести в удобоваримый вид, поскольку они закодированы. Стандартным соглашением служит замена пробелов знаками плюс и затем кодировка оставшихся недопустимых символов с помощью ASCII-кодов в шестнадцатиричной форме, перед которыми ставится знак (%). Пример: Http://treagraf.tasur.edu.ru/cgi-bin/B_price.pl\ ?Category=%C2%E8%E4%E5%EE&Description=%E0%E1%E2%E3 Это значит: Http://treagraf.tasur.edu.ru/cgi-bin/B_price.pl?\ Category=Видео&Description=абвг Декодировать строку запросов в первый раз лучше самому. На вопрос "а как?" есть множество ответов, переписывать которые нет смысла. Приведу лишь короткий пример: Заменяем знаки (+) на пробелы $query = ~ s/\+/ /g; Потом заменяем все сочетания знака (%), после которого следуют шестнадцатиричные цифры, на соответствующий символ ASCII $query =~ s/%({2})/pack("C", hex($1))/eg; Я пользуюсь тем, что предлагает Perl Builder: #! E:\perl5\bin\perl &GetFormInput; # вызов подпрограммы получения данных $Category = $field{"Category"}; # получаем данные из поля Category $Description = $field{"Description"}; # получаем данные из поля Description $Page = $field{"Page"}; # получаем данные из поля Page В конце скрипта помещаем подпрограмму "прозрачного" чтения данных. Sub GetFormInput { (*fval) = @_ if @_ ; local ($buf); if ($ENV{"REQUEST_METHOD"} eq "POST") { read(STDIN,$buf,$ENV{"CONTENT_LENGTH"}); } else { $buf=$ENV{"QUERY_STRING"}; } if ($buf eq "") {return 0;} else { @fval=split(/&/,$buf); foreach $i (0 .. $#fval){ ($name,$val)=split (/=/,$fval[$i],2); $val=~tr/+/ /; $val=~ s/%(..)/pack("c",hex($1))/ge; $name=~tr/+/ /; $name=~ s/%(..)/pack("c",hex($1))/ge; if (!defined($field{$name})) { $field{$name}=$val; } else { $field{$name} .= ",$val"; #if you want multi-selects to goto into an array change to: #$field{$name} .= "\0$val"; } } } return 1; } Второй этап работы скрипта - обработка данных - полностью на Ваше усмотрение. Проверяйте полученные данные на правильность, пишите их в файл, делайте что хотите. И, наконец, Вам нужно выдать какие-то результаты броузеру клиента, причем так, чтобы броузер правильно их отобразил. То есть, выдавать результаты нужно в HTML. Это делается просто: (тоже можно по-разному) Print "Content-type: text/html", "/n/n"; #обязательная строка print " В поле Category Вы ввели: ", $Category, " Все это касается скриптов, получающих данные из формы на странице HTML. При этом страница с формой - отдельно, скрипт - отдельно. Можно сделать красивее и удобнее: объединить страницу и скрипт в единое целое. Для этого скрипт пишется по схеме:
#! E:\perl5\bin\perl if (($ENV{"QUERY_STRING"} eq "") or ($ENV{CONTENT_LENGTH}=0)) { # генерируем страницу с формой } else {# получаем данные, обрабатываем и выдаем результат} Гостевая книгаОбщий алгоритм работы гостевой книги таков: 1. Если посетитель хочет сделать запись в книгу, то Для удобства восприятия я оформил пункты 1 и 2 отдельными скриптами add_guestbook.pl и read_guestbook.pl соответственно. Сообщения гостевой книги хранятся в текстовом файле построчно, т.е. на каждую запись - строка. Так сделано для удобства чтения этого файла. Пример одной записи: Sat Dec 5 13:31:20 1998&Наташа&студентка&Good&Для начала хорошо. Успехов на данном поприще Вам, Александр!&нету@пока&194.226.60.34 Вот описание полей рассматриваемой гостевой книги.
FAQ по языку Perl для начинающих Часто задаваемые вопросы, собранные в конференции RU.CGI.PERL.CHAINIK
Что такое CGI? Это общий интерфейс шлюзов, связывающий программу,
работющую под управлением вебсервера и клиента в виде HTTP-браузера.
Иными словами, это средство, которое позволяет генерить HTML-документы
"на лету", в зависимости от условий и пожеланий программиста.
Как и любое клиент-серверное средство, CGI-программа состоит из
двух частей - одной, которая работает на клиенте, в среде браузера, и
другой, работающей на сервере, в среде вебсервера. Клиентская часть
пишется на HTML (возможно, с употреблением раздичных дополнительных
средств, расширяющих его возможности), серверная часть может быть на-
писана на любом языке программирования, способном создавать выполняе-
мые программы на платформе, на которой установлен вебсервер. Мы будем
использовать для этих целей Перл, потому что он удобен для обработки
текстовых строк - а HTML документ представляет собой именно текст.
Принцип работы интерфейса очень прост - вебсервер, если ему это
разрешено, может запустить выполняемую программу; в отличие от запуска
этой же программы пользователем потоки вода, вывода и ошибок запущен-
ной программы будут перенаправлены: ввода и вывода в протокол HTTP, а
ошибок - в файл лога ошибок вебсервера. Таким образом, мы можем созда-
вать HTML-документ "на лету", просто выводя в поток вывода его теги с
помощию команды print или ее аналога.
Впрочем, лучше один раз увидеть, чем сто раз услышать. Для того,
чтобы работать с клиент-серверными пограммами, нужно сначала устано-
вить клиент и сервер. В качестве клиента может быть использован любой
браузер, поддерживающий протокол HTTP (рекомендуется Netscape, потому
что он достаточно строго реагирует на ошибки; можно быть увереным, что
то, что работает в нем будет работать где угодно - а обратное выполня-
ется редко), в качестве сервера рекомендуется вебсервер Apache. Это
один из самых распространенных вебсерверов, он может быть скомпилиро-
ван полд все мыслимые платформы и ситемы, и отладженные под него прог-
раммы скорее всего сможет установить любой провайдер.
Вебсервер Apache для Windows лучше всего получить по адресу
ftp://cdl.bmstu.ru/soft/cgi . Установите его, однако не в директорию,
которую он предлагает для установки, а в c:\apache . Вебсервер может
работать и в том случае, если он установлен в руть по-умолчанию, одна-
ко при его настройке возникнут некоторые разночтения с предлагаемым
здесь вариантом - если Вы хотите избегнуть нежелательных осложнений,
измените путь по-умолчанию.
Запустите вебсервер (на экране появится пустое черное окно - это
нормальный результат успешного запуска; ни в коем случае не закрывайте
это окно принудительно - для финиширования вебсервер создал Вам специ-
альную иконку). Обратитесь к нему из браузера через URL
http://localhost и убедитесь, что демонстрационная веб-страница, кото-
рая находится в директори htdocs успешно запускается.
Если вебсервер не удалось запустить, прочитайте выводимое им со-
общение об ошибке. Чаще всего вебсервер не может запуститься из-за то-
го, что не указано имя. Откройте на редактирование основной файл кон-
фигурации вебсервера (httpd.conf) и снимите ремарку с пересенной
Servername, присвоив серверу любое имя - например localhost.
Теперь имеет смысл попробовать выполнить первую CGI-программу.
Для того, чтобы иметь возможность писать CGI-программы на Перле,
следует установить Перл. Взять его можно там же, где и вебсервер, ус-
тановка этой программы не содержит особых подводных камней. Вам будет
предложено скомпиллировать Перл из текста на Си, если Вы откажетесь от
этого (что рекомендуется), будет развернута уже скомпилированная би-
нарная версия. После установки не забудьте проложить в файле
Autoexec.bat путь в директорию c:\perl\bin - туда, где содержится файл
perl.exe.
Проверьте правильность установки Перла, написав простейшую прог-
рамму, состоящую из одной строки:
print "Hello";
Запустите эту программу из любой директории, набрав "perl
filename", где filename - имя файла, в который Вы вписали приведенную
выше строчку. Если на экране появилось слово Hello, это ззначит что Вы
все сделали правильно.
В отличие от многих других вебсерверов, Апач сам вызывет интерп-
ретатор Перла, таким образом в каждой программе нужно указывать, где
он находиться. Таким образом, первой строчкой нашего CGI-скрипта дол-
жен быть путь к интерпретатору:
#!perl
после того, как путь к интерпретатору указан, нужно выставить
серверный http-заголовок, указывающий тип отдаваемых данных:
Обратите внимание, что поле http-заголовков завершается двойным
переводом строки. Сами заголовки, если их несколько, отделяются друг
от друга одинарным переводом строки.
Третья строчка нашей программы будет содержать необходимую для
создания html-документов обвеску:
print ""; # директория, в которые записывается принимаемый файл. print "Файл успешно перенесен на сервер. "; print ""; print ""; print ""; } elsif ($mode eq "") { print "Content-type: text/html\n\n"; print ""; print ""; print " Предупреждение. Программа пересылки файлов не работает с браузера- print ""; print ""; } Часто задаваемые вопросы (часть третья) Как послать письмо (в UNIX-системе). Для работы с почтой в UNIX-системах традиционно используется программа Sendmail. Обращаться к ней можно непосредственно, а можно через команду mail. В любом случае, нужно сначала подготовить адреса, заменив в них символ "@" на "\@" - в противном случае программа не может быть выполнена. $as1="@"; $as2="\@"; $mails =~ s/$as1/$as2/g; где $mails - это адрес или серия адресов, разделенных пробелами. Письма традиционно отправляются в кодировке koi-8, в которую надо пере- вести наш текст. Сделать это можно, записав тело письма, допустим, в скаляр $as4 а затем выполнив над ними следующую операцию (для перевода из кодировки 1251 в кодировку koi-8): $as4 =~ tr/АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюяЁё/бвчздецъй клмнопртуфхжигюыэящшьасБВЧЗДЕЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАСi?/; Open MAILL, "|mail -s \"Subject\" $mails"; My $URL = "
http://www.yahoo.com/
"; Sub new { LWP::UserAgent::new(@_); } My $res = RequestAgent->new->request(new HTTP::Request GET => $URL); My $URL = "
http://localhost/cgi-bin/hello.cgi
"; My $URL = "
http://www.yahoo.com/
"; Print header; Sub callback { my($data, $response, $protocol) = @_; print $data; die } My $URL = "http://mail.yahoo.com/"; My $ua = new LWP::UserAgent; Print header; My $URL = "
http://www.yahoo.com/
"; $ua->proxy(["http", "ftp"], "
http://proxy.sn.no:8001/
"); My $res = $ua->request(new HTTP::Request GET => $URL); My $URL = "
http://www.yahoo.com/
"; Print header; My $URL = "
http://yahoo.com/?login=mylogin&password=mypassword
"; My $request; # add Host field as required in HTTP/1.1 My $res = LWP::UserAgent->new->request($request); Print header, $res->is_success ? $res->content: $res->status_line; Это важное событие в мире программирования произошло в 1986 году, когда обычный на первый взгляд парень Ларри Уолл после кропотливой работы объявил миру, что разработал язык программирования Perl. Путь к этому знаменательному событию оказался трудным и тернистым, но результат того стоил. Как, кто и зачем разработал новый язык программирования? Здесь есть ответы на все эти вопросы. ПредысторияТолчком для этого открытия послужила Тогда он принимал участие в проекте UNIX. Работа была сложная, так как необходимо было создать безопасную сеть со многими уровнями, чтобы была возможность объединить работу нескольких компьютеров, работающих друг от друга на значительных расстояниях. Весь процесс был выполнен успешно, но вот отчеты пришлось делать очень трудоемкие, не только с огромным количеством файлов, но и с между ними. Уолл решил применить для работы фильтр awk, но возникло неожиданное препятствие: невозможно было управлять ни открытием, ни закрытием огромного числа файлов - по иронии - на основе в них же содержащейся информации о расположении этих файлов. Вначале Ларри, чтобы разрешить непредвиденную проблему, решил написать специфическую системную утилиту. Она, казалось бы, являлась выходом из создавшейся ситуации. Но до этого им было уже составлено несколько утилит для решения этой проблемы, которые, к сожалению, не стали выходом для стандартов UNIX. Вот потому талантливый системный администратор, по образованию лингвист, что помогло ему в работе, рискнул и создал язык программирования Perl, чтобы была возможность одновременно обрабатывать текстовые файлы, находить решение для системных задач, создавать более понятные отчеты. И в то же время чтобы это было низкоуровневое программирование, которое являлось бы доступным на языке С. Потому интерпретатор языка Perl и был написан на нем. Новый язык программирования: причина возникновенияКак утверждал Ларри, помогла ему создать новый язык лень. Но именно та лень, которая позволила решить важную задачу: как избежать составления многочисленного числа программ на разных языках, которые были неотъемлемой частью инструментальных средств UNIX. Слишком утомительной была такая процедура. Достоинство нового языка оценили другие, так как в нем гармонично сочетались возможности обработки файлов и системного администрирования. А это именно два необходимых факта, которые нужны во время программирования системы UNIX. Следует отметить, что у языка программирования Perl есть небольшое отличие от других подобных языков: он появился оттого, что в нем назрела необходимость, а не для того, чтобы поразить пользователей или придумать очередное красивое средство, которое не сыграет особой роли. Наоборот, когда Ларри ознакомил пользователей со своим изобретением, среди системных администраторов оно произвело истинный фурор, ведь теперь отпадала необходимость тратить много времени, чтобы вникнуть в несколько языков программирования, и появилась возможность легко решить проблемы путем использования единого языка с использованием таблицы символов. ОсобенностиВ переводе на русский язык аббревиатура Perl звучит как «практический язык, чтобы извлекать данные и составлять отчеты». Символом этого вида языка решили сделать верблюда, наверное, посчитав, что, так как животное это благородное, выносливое, способно много дней безропотно нести тяжелую ношу, такой же труд напоминает нагрузку на новый язык, тоже нешуточную. Почему новый язык сразу оценили многие пользователи, есть много причин. Кто пользуется системой UNIX, знает, что настройки здесь проходят через специальные файлы - обычные текстовые, а изменения осуществляются после выполнения команд. Они написаны на особом языке оболочки, а их выполнение происходит из командной строки. Система UNIX позволяет создавать индивидуальные команды, опираясь на команды интерпретатора и сохраняя их. Они остаются в текстовых файлах, и если требуется, выполняются как стандартный набор команд операционной системы - только через командную строку. Команды пользователя иначе именуются скрипты. В системе UNIX приходится операционному администратору писать большое количество скриптов, которые, в свою очередь, обрабатывают последующие скрипты, т. е. текстовые файлы с использованием специальных программ:
Программы в качестве фильтров поочередно считывают строки входных файлов. Затем они выполняют применимые к строке действия, которые определяются благодаря командам программ. При этом выделяется цепочка символов по определенным шаблонам, замена по установленным правилам, генерируются новые файлы. Большие возможностиНовый язык программирования Perl открыл очень богатые возможности в тех случаях, когда требуется обработать текст, устойчивые выражения. Отличает Perl большие варианты вспомогательных модулей. Со временем этот уникальный язык расширил свои границы, и теперь широко используется в веб-разработках и играх, если необходимо сетевое программирование или графическая для пользователей. Язык прижился и полюбился за легкость использования, сейчас его признают как самый динамический язык программирования. Он поддерживает разнообразные парадигмы, куда входят стили - функциональный, процедурный и другие, у него имеется контроль за памятью, есть поддержка обработки текста. Не зря один из девизов Л. Уолла гласит, что вещи простые могут оставаться простыми, но сложные обязаны выполняться. Освоить язык несложно, разобравшись в выражениях присваивания, блоках кода, управляющих структурах и функциях. Схожесть c другими языкамиЛарри многое позаимствовал из других языков программирования. Например:
Но с собственными задачами новый язык справлялся гораздо быстрее, и его, поэтому начали применять не только для решения задач системного администрирования. Уолл почерпнул у Г. Спенсера пакет, который помог освоить Perl регулярные выражения, модифицируя его под свое детище. Многие разработанные функции - заслуга не только Ларри. Коллеги и друзья не менее увлеченно старались привнести в разрабатываемую уникальную программу свои новшества. А когда язык появился в интернете, образовалось целое сообщество единомышленников, которые тоже помогли его усовершенствовать. В работе задействовано с тех пор, как утверждает статистика, более 10 000 программистов. Впрочем, язык и сейчас усовершенствуется благодаря разработке пакетов, которые используются с успехом в реализации новых применений языка под развивающиеся технологии, связанные с информацией. Этапы развитияНебольшие, но значительные этапы пути можно выделить в таблице.
Уникальный Perl - язык программирования: плюсы и минусыPerl 5 активно разрабатывается и теперь, пополняясь все новыми версиями. Но все разработки роднит несколько факторов: выполняется автоматическая типизация данных, проводится автоматический контроль над памятью. Благодаря интерпретатору известны не только типы, но и запросы памяти каждого объекта программы, и ему не составляет труда распределить память, освободить при подсчете ссылок. Нужно отметить, что Perl-программирование отличает интерпретатор от других. Доказательством тому являются трансляция программы в промежуточный байт-код, а уже потом начинает выполняться. В сравнение: традиционный работает немного иначе - вводимый оператор интерпретируется и мгновенно выполняется, что чревато синтаксическими ошибками во время рабочего процесса. Perl позволяет обнаружить такого рода ошибки уже в период трансляции в бай-код. Для того чтобы перевести один вид данных в другой, потребуется автоматический процесс, если же невозможны переводы каких-либо видов данных, это может привести к роковой ошибке. Заслуга версии 5 004 в том, что здесь имеется пакет UNIVERSAL, который языку дал основной объект, а от него произошли все классы - на автоматической основе. Появилась возможность запросить версию модулей. Стало реальностью поддерживать запрашивать версию модулей. В дополнение к этому perl стал поддерживать многие операционные системы, и Microsoft Windows в том числе. Версия 5.005, вышедшая в 1998 году, значительно повысила качество процессора регулярных выражений, улучшила новые перехваты в бэкенд, что решилось с помощью определенных модулей и расширила поддержку операционных систем. Последние обновленияДвухтысячный год подарил миру новую, 5.6, версию языка перл. Она уже выглядела намного солидней первых, имела 64-битные системы, в состоянии была поддержать файлы более двух Гб, включала представление строк, учитывая стандарт юникод, а также ключевое слов - our. В этот период меняется схема наименований версий, чтобы она была более близкой к другим проектам - с открытым исходным кодом. Интересным фактом является такое решение: если в разработке находится версия, ей будет присвоен номер с нечетными цифрами, а стабильная получает четную нумерацию. Уолл тогда обратился к своим приверженцам с просьбой вносить предложения для создания более продвинутой версии. Его призыв был услышан, а итогом явился 361 документ, что помогло разрабатывать VI версию. На суд пользователям представили документ, который, скорее всего, походил на сводку, а эта версия существовала, но лишь в виде описания языка. Ряд документов превратился в спецификацию этой версии. Попытка запустить в действие интерпретатор VI версии в 2006 году была остановлена. Но с 2009 года под названием Rakudo Perl эта версия живет и периодически ее обновляют. Значительное изменение процесса разработки Perl 5 произошло после появления Perl 5.11. Сообщество разработчиков перешло на ежемесячный цикл выпусков, с планированием даты выпуска на три месяца вперед. Новая версияВерсия 5.8 появилась в 2002 году. Знаменита она тем, с этого времени ежегодно обновлялась до 2008 года, значительно улучшила поддержку юникода, добавила много функций, в которые входят поддержка многопоточности, оригинальная реализация ввода-вывода и увеличила точность числовую. И, опять же, появились новые модули. К 20-летию создания языка программирования общего назначения новая версия под номером «5.10.0» не разочаровала пользователей в очередной раз. Появились новые операторы, а также «умный» - совпадения, прошло обновление регулярных выражений. Что принесли последние годы работы?Каждый год все новые усовершенствования помогали сделать язык, изобретенный Уоллом, все наиболее легче проще и доступнее. 2010 год ознаменовался тем, что синтаксис языка perl получил поддержку package NAME VERSION, регулярных выражений, в последующие годы обновлялись модули, расширялась поддержка операторов. Была достигнута цель - указать во время работы ту версию, которую следует эмулировать, значит, позволить обновить perl, но при этом не потерять рабочие способности использованных скриптов, которые представляют угрозу оказаться несовместимыми с представленной новой версией. Стало больше функций, увеличилась безопасность. В конце мая, совсем недавно, появилась очередная версия, как всегда, более усовершенствованная и удобная для работы. Сегодня ее может протестировать любой желающий и на своем лично опыте убедиться, что для создания этого языка программирования проделано немало работы. В этом языке Perl массивы не ограничены. Можно решать, используя язык, нетрадиционные задачи, для осуществления которых было бы в другом случае задействовано несколько, выполнить задания администрирования, обработать качественно текстовые файлы, и на все проблемы времени будет затрачено не так много. Разрабатывая новые программы, используя таблицу символов, задействуя необходимых операторов, результат получится правильный и быстрый. Эта статья в очередной раз доказала, что для энтузиастов своего дела нет ничего невозможного. Порой даже самые незначительные проблемы ведут к полезным открытиям, которые могут сделать нашу жизнь чуточку проще. Другие статьи: |