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