Как создавался язык Perl
Проблема одновременного доступа
При написании программ, интенсивно использующих совместный доступ к ресурсу, часто возникает задача, как правильнее решить проблему одновременного доступа различных процессов к одному файлу.
Создание news-reader'а с веб-интерфейсом
Каждый, кто начинает программировать на Перле, сталкивается с аббревиатурой CPAN, что значит Comprehensive Perl Archive Network ("всеобъемлющий архив по Перлу") CPAN - прекрасный ресурс, где можно отыскать все что угодно, связанное с Перлом. В мире много зеркал CPAN, так что выбирайте то, которое вам ближе географически. Для этого сходите на ftp://ftp.funet.fi/pub/languages/perl/CPAN/CPAN, где есть список всех зеркал.
Создание писем с помощью MIME::Lite
Очень часто при программировании на Perl необходимо отправить письмо. Обычно для этого используется конструкция вида:
Получение документа с удаленного вебсайта
Рассмотрим ситуацию, когда Вам надо взять какие-то данные с другого сайта и поместить на своей странице. Возьмем к примеру курс доллара, или самую свежую новость на каком-нибудь сайте. Для этого можно написать CGI скрипт, который будет обращаться к веб-серверу удаленного сайта, запрашивать нужный документ по протоколу HTTP, затем из полученных данных выбирать нужную информацию.
Загрузка файлов на сервер и посылка e-mail с вложениями
Одним из популярнейших вопросов во всевозможных форумах является вопрос «Как загрузить файл на сервер?». А ведь на самом деле это не так сложно, как кажется на первый взгляд. И чтобы не было совсем легко – пусть скрипт, который приведен ниже еще и посылает этот файл по почте, в виде вложения.
Отправка письма из скрипта на перле
Иногда при программировании для web, возникает необходимость отправить из скрипта на перле письмо. Существует несколько способов реализации этого.
PERL - Полезные советы: Поиск
Проверка: если ли в файле обе искомые строки.
Нам необходимо определить, если ли в файле обе строки текста 'george' and 'judy'?
my ($s1, $s2); while (<>) { exit 0 if ($s1 ||= /george/) & ($s2 ||= /judy/); } die "not found\n";
PERL - Полезные советы: Работа с массив
Иногда бывает необходимо преобразовать массив чего-либо в хэш-массив. Это можно сделать так:
%hash = map { $_, 1 } @array;Например:
%hash = map { $_, 1 } qw(a b c);Этот оператор преобразует массив ('a', 'b', 'c') в хэш-массив ('a', 1', 'b', 1, 'c', 1).
PERL - Полезные советы: Сортировка
Попробуем отсортировать по возрастанию числа от 1 до 10. sort 1..10 дает нам результ ('1', '10', '2', '3', '4', '5', '6', '7', '8', '9'). Немного не то... Сортировка сработала как расстановка по алфавиту. Проблему можно решить с помощью оператора <=>.
