Введение в Perl   ::   Маслов Владимир Викторович

То тогда закройте книжку и ложитесь спать. У вас просто нет Перл или он не установлен. А мне остается послать вас к системному администратору или к man (для переводчиков– man сокращение от manual а не то что вы подумали).

Теперь проверьте что бы строка 01 содержала то что выдала команда which .

Если совпало то введите:

test1.pl

и бъюсь на 50$ что и теперь программа не заработает, так как правильней

ввести:

./test1.pl

Если я проиграл, то не радуйтесь. Да же если вам удалось запустить программу как test1.pl это значит, что у вас будут неприятности в будущем.

Пример 2 Данная программа выводит на экран все ваши секреты. А именно файл /etc/passwd .

#!/usr/local/bin/perl

open(PASS, «
while()

{

print;

}

close(PASS);

Пояснения:

open(PASS, «
«Открыть» файл т.е. создать указатель файла PASS и в случае ошибки выдать «Файл не найден!» и закончить программу.

while()

Читать по одной строке файла в переменную по умолчанию $ _.

{

Открыть блок операторов .

print;

Вывести на экран переменную по умолчанию $_

}

Конец блока.

close(PASS);

Закрыть файл. Этого можно и не делать так-как файл автоматически закроется после окончания программы.

Результат работы этой программы тот же что и команды cat /etc/passwd .