Но вам следует избегать создания подпрограмм с именами, как у встроенных функций и операторов Perl. Создание двух подпрограмм с одинаковыми именами приводит к появлению соответствующего предупреждения, если включен режим вывода предупреждении, в противном случае второе определение функции перекрывает первое.

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

sub yesno {

Eclnt в soEM уверка (/)?"; $answer=<STDIB>;

Для инициирования подпрограммы, или, как говорят, ее вызова можно использовать подобные строки:

&yesno{); или

yesnoO;

Второй синтаксис (без можно использовать, если подпрограмма была ранее определена в коде, a синтаксис iyesno( )допустим в любом месте кода. В этой книге используются вызовы подпрограмм без S, хотя обе формы синтаксиса могут иметь место.

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

sub countdoAin {

for($i=10; Si>=0; {

print "$i -";

Eclnt "ОЗТЕЬЙ счЕЯ7: ";

Подпрограммы Perl могут быть вызваны в любом месте основной программы и

даже из других подпрограмм:

sub world {

print "World!";

sub hello {

print -Hello, "; world();

>

hello();

Возврат значений из подпрограмм

Подпрограмма служит не только для удобной группировки кода с возможностью его вызова по имени. Подпрограмма, как и функции, операторы и выражения Perl, имеет значение. Оно называется возвращаемым значением. Возвращаемое значение подпрограммы - значение последнего вычисленного в подпрограмме выражения или же значение, явно возвращаемое оператором return.

Значение подпрограммы вычисляется после вызова подпрограммы и затем используется в том месте, из которого подпрограмма была вызвана. Вот пример:

su four { # Грсстейпвя подгрэхрамуа

2*4;

print 8*two by four();

Здесь Perl при вычислении выражение о by four{) вызывает подпрограмму two by four{), которая возвращает значение 8. Затем вычисляется выражение 8*8 и в итоге выводится 64.

Значения подпрограмм также могут явно возвращаться оператором return. Этот оператор используется для досрочного выхода из кода подпрограммы и явного указания возвращаемого значения. В приведенном ниже примере используются оба способа в1хода:

subx greaterthanlOO {

f Используется установленное ранее значение $х return (1) if (5х>100);

>

$х=70;

if {x greaterthanlOOO) {

Eint "$х is greater than 100\n";

>

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

sub shift to uppercase {

. ?words=qw( cia fbi un nato unicef ); foreach (Swords) {

$ =uc($j;

return{iwords)!

§acrony!ns=shift to uppercase( j

Аргументы

У всех предгдущих примеров общим было то, что данные, с которыми они работали, были или литералами (2*4), или неременными главной программы ($х в x greaterthanlOO). Эти ограничения создают проблему переносимости кода ноднро-грамм. Для преодоления этих ограничений нужно уметь вызвать функцию и сказать ей: "Возьми эти данные и выполни с ними некоторые действия", а затем сказать ей: "Возьми другие данные и выполни с ними некоторые действия". Поведение функции должно изменяться в зависимости от передаваемых ей данных.

Значения, передаваемые функции и изменяющие ее поведение, называются аргументами (мы уже неоднократно использовали в книге этот термин). Вы уже знаете, что встроенным функциям Perl (grep, sort, reverse, print и др.) можно передавать аргументы. То же относится и к вашим подпрограммам. Для передачи функции аргументов можно использовать любой синтаксис:

иня фуЕицив{арт1, арг2, аргЗ); вмя фувкцяа арг1, арг2, аргЗ; £ имя фувхций{зрг1, арг2, аргЗ);

1 Чть I. :Ei Pern

Вторая форма - без скобок - может быть использована, только если интерпретатор Perl уже встречал определение этой функции.

в подпрограмме доступ к аргументам осуществляется посредством специальной переменной @ . В следующем примере демонстрируется передача трех строковых литералов в подпрограмму, которая выполняет их печать в виде списка.

sub printarcrs {

print join(,, в);

printargs (market, home, roast beef);

Для доступа к индивидуальным аргументам можно использовать индексы массива как и в случае любого другого массива. Однако следует помнить, что конструкция $ [01 не имеет никакого отнощения к скалярной переменной $ .

sub print third argument {

Использование в качестве имен переменных конструкции тип [3] - не очень прозрачный стиль программирования. Функции, в котор1х много переменных, как правило, начинаются с переименования этих переменных ~ после этого становится понятно, для чего они предназначены. Посмотрите, что имеется в виду:

sub display box score {

($hits, $at bats)=8 ;

print "Из $at bats гпыгак &,iro Ebferro $hits очков." ; print "064*1 результат$hits/$at bats, "\n";

di£pla/ bax saDre (50, 210);

Здесь массив копируется в список ($hits, Первый элемент массива

- - становится переменной ?iiits, a второй - переменной Satbats. Имена

переменных использованы лишь для читабельности.

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

Передача «иров и хэшей

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

esorted itenB=sort numerically(gitems);

В этой подпрограмме обращение к массиву осуществляется посредством пе-

ременной

sub {

print "Сортировка..."; return (sort {$а <=> $b} 8 );