Пример 2. Данная программа выводит на экран все ваши секреты. А именно файл /etc/passwd. #!/usr/local/bin/perl open(PASS, " while() { print; } close(PASS); Пояснения: open(PASS, " "Открыть" файл, т.е. создать указатель файла PASS, и в случае ошибки выдать "Файл не найден!" и закончить программу. while() Читать по одной строке файла в переменную по умолчанию $_. { Открыть блок операторов. print; Вывести на экран переменную по умолчанию $_ } Конец блока. close(PASS); Закрыть файл. Этого можно и не делать, т. к. файл автоматически закроется после окончания программы. Результат работы этой программы тот же что и команды cat /etc/passwd. По экрану пробежали непонятные строки но зато теперь перед вами открыты горизонты Perl программирования! Все последующие примеры будут развитием этой программы и она превратится из гадкого утенка в прекрасного лебедя (не генерала). <<<  Назад Вперед  >>>  1  2  3   8  Комментарии к статье  8 8  Обсудить в чате

8  В тему Запуск Perl-программы Синтаксис Модули Переменные Встроенные переменные Регулярные выражения Операторы и приоритеты Встроенные функции Форматы отчетов Подпрограммы Отладка Perl программ.