perlfaq

СОДЕРЖАНИЕ

• НАЗВАНИЕ
• ВЕРСИЯ
• ОПИСАНИЕ
  • Где найти perlfaq
  • Как использовать perlfaq
  • Как внести свой вклад в perlfaq
  • Что делать, если мой вопрос не найден в FAQ?
• ТАБЛИЦА СОДЕРЖАНИЯ
• ВОПРОСЫ
  • perlfaq1: Общие вопросы о Perl
  • perlfaq2: Получение и изучение Perl
  • perlfaq3: Средства разработки
  • perlfaq4: Обработка данных
  • perlfaq5: Файлы и форматы
  • perlfaq6: Регулярные выражения
  • perlfaq7: Общие вопросы по языку Perl
  • perlfaq8: Взаимодействие с системой
  • perlfaq9: Веб, электронная почта и сети
• АВТОРСКИЕ ПРАВА
• АВТОР И ПРАВА

НАЗВАНИЕ

perlfaq - часто задаваемые вопросы о Perl

ВЕРСИЯ

версия 5.021011

ОПИСАНИЕ

Perlfaq включает несколько документов, которые отвечают на наиболее часто задаваемые вопросы о Perl и программировании на Perl. Он разделен по темам на девять основных разделов, описанных в этом документе.

Где найти perlfaq

Perlfaq — развивающийся документ. Читайте последнюю версию по адресу http://learn.perl.org/faq/. Он также включен в стандартное распределение Perl.

Как использовать perlfaq

Инструмент командной строки perldoc входит в стандартное распределение Perl. Чтобы прочитать perlfaq:

$ perldoc perlfaq

Чтобы найти заголовки вопросов perlfaq:

$ perldoc -q open

Как внести свой вклад в perlfaq

Изучите https://github.com/perl-doc-cats/perlfaq/wiki. Если ваш вклад не найден, создайте задачу или заявку на изменение на https://github.com/perl-doc-cats/perlfaq.

После утверждения изменения объединяются в https://github.com/tpf/perlfaq, репозиторий, который управляет http://learn.perl.org/faq/, и они распространяются с очередным выпуском Perl 5.

Что делать, если мой вопрос не найден в FAQ?

Используйте ресурсы в perlfaq2.

ТАБЛИЦА СОДЕРЖАНИЯ

perlfaq1 - Общие вопросы о Perl

perlfaq2 - Получение и изучение Perl

perlfaq3 - Средства разработки

perlfaq4 - Обработка данных

perlfaq5 - Файлы и форматы

perlfaq6 - Регулярные выражения

perlfaq7 - Общие вопросы по языку Perl

perlfaq8 - Взаимодействие с системой

perlfaq9 - Веб, электронная почта и сети

ВОПРОСЫ

perlfaq1: Общие вопросы о Perl

Этот раздел FAQ содержит ответы на очень общие, высокоуровневые вопросы о Perl.

• Что такое Perl?

• Кто поддерживает Perl? Кто его разрабатывает? Почему он бесплатный?

• Какую версию Perl использовать?

• Что такое Perl 4, Perl 5 или Perl 6?

• Что такое Perl 6?

• Насколько стабилен Perl?

• Как часто выпускаются новые версии Perl?

• Сложно ли освоить Perl?

• Как Perl сравнивается с другими языками, такими как Java, Python, REXX, Scheme или Tcl?

• Можно ли сделать [задание] в Perl?

• Когда не стоит программировать на Perl?

• В чем разница между "perl" и "Perl"?

• Что такое JAPH?

• Как убедить других использовать Perl?

perlfaq2: Получение и изучение Perl

Этот раздел FAQ отвечает на вопросы о том, где найти исходный код и документацию для Perl, поддержку и смежные вопросы.

• Какие машины поддерживают Perl? Где его получить?

• Как получить бинарную версию Perl?

• У меня нет компилятора C. Как я могу скомпилировать свой собственный интерпретатор Perl?

• Я скопировал бинарник Perl с одной машины на другую, но скрипты не работают.

• Я взял исходники и попытался скомпилировать, но gdbm/динамическая загрузка/malloc/линковка/... не получилось. Как заставить это работать?

• Какие модули и расширения доступны для Perl? Что такое CPAN?

• Где можно получить информацию о Perl?

• Что такое perl.com? Perl Mongers? pm.org? perl.org? cpan.org?

• Где можно задать вопросы?

• Книги по Perl

• В каких журналах есть статьи о Perl?

• Какие блоги по Perl следует читать?

• Какие рассылки по Perl существуют?

• Где можно купить коммерческую версию Perl?

• Куда отправлять отчеты об ошибках?

perlfaq3: Средства разработки

Этот раздел FAQ отвечает на вопросы, связанные со средствами разработки и поддержкой программирования.

• Как сделать (что-нибудь)?

• Как использовать Perl интерактивно?

• Как найти установленные на моей системе модули?

• Как отладить мои программы на Perl?

• Как профилировать мои программы на Perl?

• Как выполнить взаимную проверку моих программ на Perl?

• Есть ли красивый форматировщик (форматировщик) для Perl?

• Есть ли IDE или редактор Perl для Windows?

• Где можно получить макросы Perl для vi?

• Где можно получить perl-mode или cperl-mode для emacs?

• Как использовать curses с Perl?

• Как написать графическое приложение (X, Tk, Gtk и т. д.) на Perl?

• Как ускорить работу моей программы на Perl?

• Как уменьшить потребление памяти моей программой на Perl?

• Безопасно ли возвращать ссылку на локальные или лексические данные?

• Как освободить массив или хеш, чтобы мой процесс уменьшился?

• Как сделать скрипт CGI более эффективным?

• Как скрыть исходный код моей программы на Perl?

• Как скомпилировать мою программу Perl в байт-код или C?

• Как заставить #!perl работать в [MS-DOS,NT,...]?

• Можно ли писать полезные программы на Perl в командной строке?

• Почему однострочные программы Perl не работают на моей системе DOS/Mac/VMS?

• Где можно узнать о CGI или веб-программировании на Perl?

• Где можно узнать об объектно-ориентированном программировании на Perl?

• Где можно узнать о связывании C с Perl?

• Я прочитал perlembed, perlguts и т. д., но не могу встроить perl в свою программу C; что я делаю неправильно?

• При запуске скрипта появилось это сообщение. Что это означает?

• Что такое MakeMaker?

perlfaq4: Обработка данных

Этот раздел FAQ отвечает на вопросы, связанные с обработкой чисел, дат, строк, массивов, хешей и различными вопросами обработки данных.

• Почему я получаю длинные десятичные числа (например, 19.9499999999999) вместо ожидаемых чисел (например, 19.95)?

• Почему функция int() не работает?

• Почему мои данные в восьмеричной системе не интерпретируются правильно?

• Есть ли в Perl функция round()? А функции ceil() и floor()? Функции тригонометрии?

• Как преобразовать числовые представления/системы счисления/основания?

• Почему оператор & работает не так, как я хочу?

• Как умножить матрицы?

• Как выполнить операцию над последовательностью целых чисел?

• Как вывести римские цифры?

• Почему мои случайные числа не случайны?

• Как получить случайное число между X и Y?

• Как найти день или неделю года?

• Как найти текущий век или тысячелетие?

• Как сравнить две даты и найти разницу?

• Как преобразовать строку в количество секунд с начала эпохи?

• Как найти юлианский день?

• Как найти дату вчерашнего дня?

• Есть ли в Perl проблемы с годом 2000 или 2038? Соответствует ли Perl стандартам Y2K?

• Как валидировать входные данные?

• Как раскодировать строку?

• Как удалить последовательные пары символов?

• Как расширить вызовы функций в строке?

• Как найти совпадения/вложенность чего-либо?

• Как перевернуть строку?

• Как заменить табуляции в строке?

• Как переформатировать абзац?

• Как получить доступ к N символам строки или изменить их?

• Как изменить N-ое вхождение чего-либо?

• Как подсчитать количество вхождений подстроки в строке?

• Как сделать заглавными все слова в строке?

• Как разделить строку, ограниченную символом [символ], за исключением случаев, когда он находится внутри [символа]?

• Как убрать пробелы в начале и в конце строки?

• Как добавить пробелы или нули к строке/числу?

• Как извлечь выбранные столбцы из строки?

• Как найти значение Soundex для строки?

• Как расширить переменные в строках текста?

• В чем проблема постоянного использования "$vars" в кавычках?

• Почему мои <<HERE-документы>> не работают?

• В чем разница между списком и массивом?

• В чем разница между $array[1] и @array[1]?

• Как удалить дубликаты из списка или массива?

• Как проверить, содержится ли определенный элемент в списке или массиве?

• Как вычислить разность двух массивов? Как вычислить пересечение двух массивов?

• Как проверить, равны ли два массива или хэши?

• Как найти первый элемент массива, для которого выполняется условие?

• Как работать со связанными списками?

• Как работать с циклическими списками?

• Как перемешать массив случайным образом?

• Как обработать/изменить каждый элемент массива?

• Как выбрать случайный элемент из массива?

• Как переставить N элементов списка?

• Как отсортировать массив (по чему-либо)?

• Как манипулировать массивами битов?

• Почему defined() возвращает true для пустых массивов и хэшей?

• Как обработать весь хэш?

• Как объединить два хэша?

• Что происходит, если добавлять или удалять ключи из хэша во время его итерации?

• Как найти элемент хэша по значению?

• Как узнать, сколько элементов в хэше?

• Как отсортировать хэш (по значению вместо ключа)?

• Как всегда сохранять отсортированность хэша?

• В чем разница между "delete" и "undef" при работе с хэшами?

• Почему в связанных хэшах не работает различие между defined/exists?

• Как остановить операцию each() на определенном этапе?

• Как получить уникальные ключи из двух хэшей?

• Как сохранить многомерный массив в файле DBM?

• Как сделать, чтобы хэш запоминал порядок добавления элементов?

• Почему передача подпрограмме неопределенного элемента в хэше создает его?

• Как создать в Perl аналог структуры C/класса C++/хэша или массива хэшей/массивов?

• Как использовать ссылку в качестве ключа хэша?

• Как проверить, существует ли ключ в многоуровневом хэше?

• Как предотвратить добавление нежелательных ключей в хэш?

• Как правильно обрабатывать двоичные данные?

• Как определить, является ли скаляр числом/целым/дробным?

• Как сохранить данные между вызовами программы?

• Как вывести или скопировать рекурсивную структуру данных?

• Как определить методы для каждого класса/объекта?

• Как проверить контрольную сумму кредитной карты?

• Как упаковать массивы двойных или плавающих чисел для кода XS?

perlfaq5: Файлы и Форматы

Этот раздел посвящен вводу/выводу и проблемам с файловыми дескрипторами: файловые дескрипторы, сброс буфера, форматы и подписи.

• Как сбросить/отключить буферизацию файлового дескриптора? Почему это нужно делать?

• Как изменить, удалить или вставить строку в файл, или добавить в начало файла?

• Как подсчитать количество строк в файле?

• Как удалить последние N строк из файла?

• Как использовать опцию -i Perl внутри программы?

• Как скопировать файл?

• Как создать временное имя файла?

• Как манипулировать файлами с фиксированной длиной записи?

• Как сделать файловый дескриптор локальным для подпрограммы? Как передавать файловые дескрипторы между подпрограммами? Как создать массив файловых дескрипторов?

• Как использовать файловый дескриптор косвенно?

• Как настроить формат подписи для использования с write()?

• Как записать данные в строку с помощью write()?

• Как открыть файловый дескриптор для строки?

• Как вывести числа с запятыми?

• Как перевести тильды (~) в имени файла?

• Почему при открытии файла для чтения и записи он стирается?

• Почему иногда возникает ошибка "Список аргументов слишком длинный" при использовании <*>?

• Как открыть файл с ведущим ">" или trailing пробелами?

• Как безопасно переименовать файл?

• Как заблокировать файл?

• Почему нельзя просто открыть (FH, ">file.lock")?

• Я всё ещё не понимаю блокировки. Я просто хочу увеличить число в файле. Как это сделать?

• Всё, что я хочу сделать, это добавить небольшой текст в конец файла. Нужно ли мне использовать блокировку?

• Как случайным образом обновить двоичный файл?

• Как получить метку времени файла в Perl?

• Как установить метку времени файла в Perl?

• Как выводить данные в несколько файлов одновременно?

• Как прочитать весь файл сразу?

• Как прочитать файл по абзацам?

• Как прочитать один символ из файла? С клавиатуры?

• Как узнать, есть ли ожидаемый символ в файловом дескрипторе?

• Как выполнить tail -f в Perl?

• Как дублировать файловый дескриптор в Perl?

• Как закрыть файловый дескриптор по номеру?

• Почему нельзя использовать "C:\temp\foo" в путях DOS? Почему `C:\temp\foo.exe` не работает?

• Почему glob("*.*") не получает все файлы?

• Почему Perl позволяет удалять файлы с атрибутом "только для чтения"? Почему -i перезаписывает защищённые файлы? Разве это ошибка в Perl?

• Как выбрать случайную строку из файла?

• Почему при выводе массива строк появляются странные пробелы?

• Как перебрать дерево каталогов?

• Как удалить дерево каталогов?

• Как скопировать всё дерево каталогов?

perlfaq6: Регулярные выражения

Этот раздел удивительно небольшой, потому что остальная часть FAQ содержит ответы, связанные с регулярными выражениями. Например, декодирование URL и проверка того, является ли что-то числом, могут быть выполнены с помощью регулярных выражений, но эти ответы находятся в других разделах данного документа (в perlfaq9 : "Как декодировать или создать эти кодировки %-encodings в сети" и perlfaq4 : "Как определить, является ли скаляр числом/целым/дробным", чтобы быть точным).

• Как использовать регулярные выражения, не создавая нечитаемый и плохо поддерживаемый код?

• У меня проблемы с совпадением строк, превышающих одну строку. В чем проблема?

• Как извлечь строки между двумя шаблонами, которые находятся на разных строках?

• Как сопоставить XML, HTML или другие неприятные и уродливые вещи с помощью регулярного выражения?

• Я поместил регулярное выражение в $/ , но оно не сработало. В чем проблема?

• Как заменить регистронезависимо слева, сохранив регистр справа?

• Как сделать \w совместимым с национальными наборами символов?

• Как создать локально-чувствительную версию /[a-zA-Z]/?

• Как привести переменную к строке для использования в регулярном выражении?

• Для чего предназначено /o?

• Как удалить комментарии в стиле C с помощью регулярного выражения из файла?

• Можно ли использовать регулярные выражения Perl для поиска сбалансированного текста?

• Что означает, что регулярные выражения жадные? Как обойти эту проблему?

• Как обработать каждое слово в каждой строке?

• Как создать подсчет частоты слов или строк?

• Как выполнить приблизительное сопоставление?

• Как эффективно сопоставить много регулярных выражений одновременно?

• Почему поиск по границам слов с \b не работает?

• Почему использование $&, $`, или $' замедляет мою программу?

• Для чего используется \G в регулярном выражении?

• Являются ли регулярные выражения Perl DFAs или NFAs? Соответствуют ли они стандартам POSIX?

• В чем проблема использования grep в контексте без значения?

• Как сопоставить строки с многобайтовыми символами?

• Как сопоставить регулярное выражение, которое находится в переменной?

perlfaq7: Общие вопросы языка Perl

Этот раздел посвящен общим вопросам языка Perl, которые не подходят явно ни к одному из других разделов.

• Могу ли я получить BNF/yacc/RE для языка Perl?

• Что означают все эти знаки препинания $@%&* и как я узнаю, когда их использовать?

• Всегда ли мне нужно заключать строки в кавычки или использовать точки с запятой и запятые?

• Как мне пропустить некоторые возвращаемые значения?

• Как временно заблокировать предупреждения?

• Что такое расширение?

• Почему операторы Perl имеют другой приоритет, чем операторы C?

• Как объявить/создать структуру?

• Как создать модуль?

• Как принять или перехватить модуль, уже имеющийся на CPAN?

• Как создать класс?

• Как узнать, является ли переменная заражённой?

• Что такое замыкание?

• Что такое самоубийство переменных и как его предотвратить?

• Как передать/вернуть {Функцию, Дескриптор файла, Массив, Хэш, Метод, Регулярное выражение}?

• Как создать статическую переменную?

• В чём разница между динамическим и лексическим (статическим) областями видимости? Между local() и my()?

• Как получить доступ к динамической переменной, когда в области видимости находится лексическая переменная с аналогичным именем?

• В чём разница между глубокой и поверхностной привязкой?

• Почему «my($foo) = <$fh>;» не работает правильно?

• Как переопределить встроенную функцию, оператор или метод?

• В чём разница между вызовом функции как &foo и foo()?

• Как создать оператор switch или case?

• Как перехватить обращение к неопределённым переменным, функциям или методам?

• Почему метод, включённый в этот же файл, не находится?

• Как узнать текущий или вызывающий пакет?

• Как прокомментировать большой блок кода Perl?

• Как очистить пакет?

• Как использовать переменную в качестве имени переменной?

• Что означает «плохой интерпретатор»?

• Нужно ли перекомпилировать XS-модули при изменении библиотеки C?

perlfaq8: Взаимодействие с системой

Этот раздел FAQ Perl содержит вопросы, связанные с взаимодействием с операционной системой. Тема включает межпроцессное взаимодействие (IPC), управление пользовательским интерфейсом (клавиатура, экран и устройства указания) и всё остальное, что не относится к обработке данных.

• Как узнать, под какой операционной системой я работаю?

• Почему exec() не возвращает значение?

• Как выполнить сложные действия с клавиатурой/экраном/мышью?

• Как вывести что-то в цвете?

• Как прочитать только один символ с клавиатуры без ожидания нажатия клавиши Enter?

• Как проверить, готов ли ввод с клавиатуры?

• Как очистить экран?

• Как получить размер экрана?

• Как попросить пользователя ввести пароль?

• Как читать и писать в последовательный порт?

• Как декодировать зашифрованные файлы паролей?

• Как запустить процесс в фоновом режиме?

• Как перехватить управляющие символы/сигналы?

• Как изменить файл паролей shadow на системе Unix?

• Как установить время и дату?

• Как выполнить sleep() или alarm() менее чем за секунду?

• Как измерить время менее чем за секунду?

• Как выполнить atexit() или setjmp()/longjmp()? (Обработка исключений)

• Почему моя программа с сокетами не работает под System V (Solaris)? Что означает сообщение об ошибке «Поддерживаемый протокол не найден»?

• Как вызвать уникальные C-функции моей системы из Perl?

• Где получить заголовочные файлы для ioctl() или syscall()?

• Почему скрипты Perl с setuid жалуются на проблемы с ядром?

• Как открыть канал как для чтения, так и для записи с командой?

• Почему я не могу получить вывод команды с помощью system()?

• Как перехватить STDERR внешней команды?

• Почему open() не возвращает ошибку при неудачном открытии канала?

• Что не так с использованием обратных кавычек в контексте без значения?

• Как вызвать обратные кавычки без обработки оболочки?

• Почему мой скрипт не может читать из STDIN после того, как я дал ему конец файла (^D в Unix, ^Z в MS-DOS)?

• Как преобразовать мой скрипт оболочки в Perl?

• Можно ли использовать Perl для выполнения сеанса telnet или ftp?

• Как написать expect на Perl?

• Есть ли способ скрыть командную строку Perl от программ, таких как «ps»?

• Я {изменил каталог, изменил свою среду} в скрипте Perl. Почему изменение исчезло при выходе из скрипта? Как сделать мои изменения видимыми?

• Как закрыть дескриптор файла процесса без ожидания его завершения?

• Как создать демон-процесс с помощью fork?

• Как узнать, работаю ли я в интерактивном режиме или нет?

• Как установить таймаут для медленного события?

• Как установить ограничения на использование процессора?

• Как избежать появления процессов-зомби в системе Unix?

• Как использовать базу данных SQL?

• Как сделать, чтобы system() завершался при нажатии Ctrl+C?

• Как открыть файл без блокировки?

• Как отличить ошибки оболочки от ошибок Perl?

• Как установить модуль с помощью CPAN?

• В чём разница между require и use?

• Как сохранить свой каталог модулей/библиотек?

• Как добавить в путь поиска модулей/библиотек каталог, в котором находится моя программа?

• Как добавить каталог в путь поиска включаемых файлов (@INC) во время выполнения?

• Где устанавливаются модули?

• Что такое socket.ph и где его получить?

perlfaq9: Веб, электронная почта и сети

Этот раздел посвящен вопросам, связанным с запуском веб-сайтов, отправкой и получением электронной почты, а также общим сетевым вопросам.

• Стоит ли использовать веб-фреймворк?

• Какой веб-фреймворк следует использовать?

• Что такое Plack и PSGI?

• Как удалить HTML из строки?

• Как извлечь URL-адреса?

• Как получить HTML-файл?

• Как автоматизировать отправку формы HTML?

• Как декодировать или создавать такие кодировки %-кодировок в веб-среде?

• Как перенаправить на другую страницу?

• Как защитить мои веб-страницы паролем?

• Как убедиться, что пользователи не могут вводить значения в форму, которые могут привести к нежелательным действиям моего CGI-скрипта?

• Как разобрать заголовок электронной почты?

• Как проверить правильность адреса электронной почты?

• Как декодировать строку MIME/BASE64?

• Как найти адрес электронной почты пользователя?

• Как отправить электронное письмо?

• Как использовать MIME для добавления вложений к сообщению электронной почты?

• Как прочитать электронную почту?

• Как узнать своё имя хоста, доменное имя или IP-адрес?

• Как получить/поместить файл (S)FTP?

• Как выполнить RPC в Perl?

АВТОРСКИЕ ПРАВА

Том Кристиансен написал оригинальный perlfaq, а затем расширил его с помощью Ната Торкинтона. Брайан Д. Фой существенно отредактировал и расширил perlfaq. perlfaq-workers и другие также предоставляли отзывы, исправления и поправки на протяжении многих лет.

АВТОР И АВТОРСКИЕ ПРАВА

Том Кристиансен написал оригинальную версию этого документа. Брайан Д. Фой <bdfoy@cpan.org> написал эту версию. Дополнительную информацию об авторских правах см. в отдельных документах perlfaq.

Этот документ доступен на тех же условиях, что и сам Perl. Примеры кода во всех документах perlfaq являются общественным достоянием. Используйте их по своему усмотрению (и на свой страх и риск без гарантий от кого-либо).