Sub dispfilearg

{

system (“cat $_[0]");

}

Для вызова этой подпрограммы подходит любой из следующих способов:

dispfilearg ("myfile");

$dispfilearg "myfile";

Если аргументами являются константы, то список @_ содержит только значения, а если в этом качестве выступает переменная или массив, в список @_ помещаются ссылки на эти объекты. В случае изменения этих объектов при обращении через массив @, об­новляются исходные объекты в вызывающей функции. Так, если в качестве аргумента функции используется строковая переменная, а затем этот аргумент с помощью массива @_ применяется в операции присваивания, то значение этой переменной изменяется.

Контрольные вопросы

11)Назначение языка программирования Perl;

12)Перечислите типы данных в Perl;

13)Выполнение Perl сценариев из командной строки;

14)Создание сценариев Perl;

15)Назначение модулей в Perl;

16)Пример написания типового сценария;

17)Арифметические операции;

18)Операции сравнения;

19)Назначение массивов. Типы массивов. Объявление массивов.

20)Условные конструкции. Приведите примеры.

Пример выполнения работы

Задание. Написать программу, которая проверяет успешно ли выполнена операция открытия файла. Если это не так, выполняется команда die, которая завершает работу программы. Операция НЕ (!) выдает значение «истина», если выполнение функции open завершилось неудачно, обеспечивая, таким образом, активизацию команды die.

Сценарий Perl :

if (!(open (REPS, "< $filen")))

{

die "Can't open $filen";

} else

{

print "Opened $filen successfully" ;

}