Подпрограммы Perl (функции)

Подпрограммы Perl также являются определяемыми пользователем функциями.

Подпрограмма Perl — это отдельный фрагмент кода, выполняющий определенную задачу, что может уменьшить количество повторяющегося кода и облегчить чтение программы.

Подпрограммы Perl могут появляться в любом месте программы, их синтаксический формат следующий:

 подпрограмма {операторы;}

Формат синтаксиса вызова подпрограммы:

 подпрограмма (список параметров);

В версиях Perl ниже 5.0 метод вызова подпрограммы следующий:

 &подпрограмма(список параметров);

В новой версии хотя и поддерживается этот метод вызова, его использование не рекомендуется.

Далее давайте рассмотрим простой пример:

Пример

#!/usr/bin/perl # Определение функции суб Привет { распечатать " Привет, мир! n " } # Вызов функции Привет ( ) ;

Выполняя вышеуказанную программу, результат вывода:

 Привет, мир!

Передать параметры в подпрограмму

Подпрограммы Perl могут принимать несколько параметров, так как другие параметры подпрограмм отмечены специальным массивом @_.

Следовательно, первый параметр подпрограммы — $_[0], второй параметр — $_[1] и так далее.

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

Пример

#!/usr/bin/perl #Определяем функцию усреднения суб Средний { # Получаем все входящие параметры $ n = скаляр ( @_ ) $ sum = 0 ; $предмет ( @_ ) { $ сумма += $предмет } $average = $sum / $n; print 'Переданный параметр: ',"@_n" # Распечатать весь массив print "Первое значение параметра: $_[0]n"; Первый параметр print "Среднее значение переданных параметров: $averagen" #Распечатать среднее значение} #Вызов функции Average(10, 20, 30);

Выполняя вышеуказанную программу, результат вывода:

 Переданные параметры: 10 20 30 Значение первого параметра: 10 Среднее значение переданных параметров: 20

Пользователи могут изменить значение соответствующего фактического параметра, изменив значение в массиве @_.

Передать список в подпрограмму

Поскольку переменная @_ представляет собой массив, в подпрограмму можно передать список.

Но если нам нужно передать скалярные параметры и параметры массива, нам нужно поместить список в последний параметр, как показано ниже:

Пример

#!/usr/bin/perl # определение функции суб РаспечататьСписок { мой @список = @_ ; печать " Список: @list n " } ; $a = 10 ; @b = ( 1 , 2 , 3 , 4 ) # Список параметров ; PrintList ( $a , @b ) ;

Приведенная выше программа объединяет скаляры и массивы, и результат:

 Список: 10 1 2 3 4

Мы можем передать в подпрограмму несколько массивов и хешей, но при передаче нескольких массивов и хешей независимые идентификаторы будут потеряны. Поэтому для прохождения нам нужно использовать ссылки (которые будут представлены в следующей главе).

Передать хеш в подпрограмму

Когда хэш-таблица передается подпрограмме, она копируется в @_, и хеш-таблица расширяется до списка комбинаций ключ/значение.

Пример

#!/usr/bin/perl #Определение метода суб PrintHash { мой ( % хеш ) = @_ ; мой $ключ ( ключи %хеш ) { мой $value = $hash { $key } печать ; " $ключ : $ значение n " } } %hash = ( ' name ' => ' codercto ' , ' age ' => 3 ) # Передаем хэш ; PrintHash ( %хэш ) ;

Выходной результат выполнения вышеуказанной программы:

 возраст: 3имя: codercto

возвращаемое значение подпрограммы

Подпрограммы могут возвращать значения функций с помощью оператора return, как и в других языках программирования.

Если оператор возврата не используется, в качестве возвращаемого значения используется последняя строка подпрограммы.

Пример

#!/usr/bin/perl #Определение метода суб add_a_b { # Не используйте возврат $_ [ 0 ] + $_ [ 1 ] # Используйте возврат ; # возврат $_[0]+$_[1]; } распечатать add_a_b ( 1 , 2 )

Выходной результат выполнения вышеуказанной программы:

 3

Мы можем возвращать скаляры, массивы и хеши в подпрограммах, но при возврате нескольких массивов и хешей независимые идентификаторы будут потеряны. Поэтому нам нужно использовать ссылки (представленные в следующей главе) для возврата нескольких массивов и функций.

Частные переменные подпрограммы

По умолчанию все переменные в Perl являются глобальными переменными, а это означает, что переменные можно вызывать в любом месте программы.

Если нам нужно установить частную переменную, мы можем использовать для ее установки оператор my .

Оператор my используется для создания переменных с лексической областью действия. Переменные, созданные с помощью my, сохраняются от начала объявления до конца закрытой области.

Закрытая область — это область внутри пары фигурных скобок, файла или строки if, while, for, foreach или eval.

В следующем примере показано, как объявить одну или несколько частных переменных:

 sub somefunc { my $variable; # $variable не отображается вне метода somefunc() my ($another, @an_array, %a_hash # Объявляем несколько переменных одновременно}

Пример

#!/usr/bin/perl #Глобальные переменные $string = " Привет, мир! " # Определение функции суб РаспечататьПривет { #Частные переменные функции PrintHello мой $string ; $string = " Привет , Codercto! " ; " Строка внутри функции: $string n " } ; # Функция вызова РаспечататьПривет ( ) ;​ " Строка вне функции: $string n " ;

Выходной результат выполнения вышеуказанной программы:

 Строка внутри функции: Привет, Codercto Строка вне функции: Привет, Мир!

Временное присвоение переменных

Мы можем использовать local для предоставления временных значений глобальным переменным и возврата исходных значений после выхода из области видимости.

Переменные, определенные local, не существуют в основной программе, но существуют в подпрограмме и подпрограммах, вызываемых подпрограммой. Вы можете присвоить ему значение при его определении, например:

Пример

#!/usr/bin/perl #Глобальные переменные $string = « Привет , мир! » ; ПечатьКодеркто { #PrintHello частная переменная функции местный $string ; $string = " Привет, Codercto! " # Подпрограмма , вызываемая подпрограммой РаспечататьМеня ( ) ;​ " Строковое значение в функции PrintCodercto: $ string n " } суб РаспечататьМеня { распечатать " Строковое значение в функции PrintMe: $ string n " } суб РаспечататьПривет { распечатать " Строковое значение в функции PrintHello: $ string n " } # Вызов функции PrintCodercto ( ) ; PrintHello ( ) ;​ " Строковое значение вне функции: $string n " ;

Выходной результат выполнения вышеуказанной программы:

 Строковое значение внутри функции PrintMe: Hello, Codercto!PrintCodercto Строковое значение внутри функции: Hello, Codercto!PrintHello Строковое значение внутри функции: Hello, World! Строковое значение вне функции: Hello, World!

статическая переменная

Функция оператора состояния аналогична модификатору static в C. Ключевое слово state делает локальные переменные постоянными.

Состояние также является лексической переменной, поэтому оно допустимо только в той лексической области, в которой определена переменная. Например:

Пример

#!/usr/bin/perl использовать функцию ' состояние ' ;​ PrintCount { состояние $count = 0 # Инициализировать переменные распечатать « Значение счетчика: $count n » $ count ++ ; для ( 1 . .5 ) { ПечатьСчетчик ( ) } ;

Выходной результат выполнения вышеуказанной программы:

 Значение счетчика: 0 счетчик Значение: 1 счетчик Значение: 2 счетчик Значение: 3 счетчик Значение: 4

Примечание 1: состояние может создавать только переменные, закрытая область действия которых находится внутри подпрограммы.

Примечание 2: состояние было введено в Perl 5.9.4, поэтому использование необходимо добавить перед использованием.

Примечание 3: состояние может объявлять скаляры, массивы и хэши. Но массивы и хэши не могут быть инициализированы при их объявлении (по крайней мере, в Perl 5.14).

контекст вызова подпрограммы

В процессе вызова подпрограммы будут возвращены разные типы значений в зависимости от контекста. Например, следующая подпрограмма localtime() возвращает строку в скалярном контексте и список в списковом контексте:

Пример

#!/usr/bin/perl # Скалярный контекст мой $datestring = местное время ( время ) ; распечатать $ строка даты ; печать " n " # контекст списка ( $sec , $min , $hour , $mday , $mon , $year , $wday , $yday , $isdst ) = localtime ( time ) ; printf ( " %d-%d-%d %d:%d :%d " , $year + 1990 , $mon + 1 , $mday , $hour , $min , $sec ) ; print " н " ;

Выходной результат выполнения вышеуказанной программы:

 Вс 12 июня 15:58:09 20162106-6-12 15:58:9