Скалярные переменные - Язык программирования PERL. Сфера применения

Как отмечалось, скалярная переменная может содержать единственное значение. В языке Perl имена скалярных переменных всегда начинаются со знака ($). В еле дующем выражении скалярной переменной $age присваивается значение 35, а переменной $name строковое значение <Bob>. Затем используется функция print для вывода значения каждой из переменных:

$age = 35;

$name = 'Bob';

print ($name, 'is', $age);

Если вы сохраните эти выражения в файле под именем SCALAR. PL, то сможете запустить программу следующим образом:

C:PERL> Perl SCALAR. PL <ENTER>

Bob is 35

Массивы

Как было сказано выше, массивы представляют собой переменные, принимающие в качестве значения список из скалярных величин. Следующий текст программы на языке Perl иллюстрирует объявление переменных типа массив и их инициализацию:

@days = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');

print(@days); # выведет 'SunMonTueWedThuFriSat'

print($days[4]); # выведет 'Thu'

@weekdays = @days[1. . 5]; # значение ('Mon', 'Tue', 'Wed', 'Thu', 'Fri')

@emptylist = (); # постой список

Ссылка на переменные типа <массив> обычно начинается со знака (@) и сопровождается значениями в квадратных скобках ([ ]). Как и в программировании на языке С, индексами массивов для скриптов всегда являются переменные целого типа, которые обычно начинаются с нулевого значения. Вы увидите исключения из этих двух правил в примерах, которые будут объяснены в этой главе. Третье выражение ($days[4]) служит примером массива, который ссылается на скалярное значение. Поскольку он содержит только один элемент, результирующее значение представляет собой скаляр. Если использовать знак ($) вместо знака (@), то скрипт будет ссылаться на скалярную величину. Это замечание является очень важным. Квадратные скобки указывают, что скрипт ссылается на массив. Знак $, в свою очередь, означает ссылку на скалярную величину. Инициализация массива @weekdays осуществляется путем выборки части массива @days. В предыдущем примере массив @days использовался без индекса. Когда индекс опущен, Perl ссылается на весь массив. Аналогичным образом, в предыдущем примере массив @days инициализировался списком литералов. Кроме того, что массиву могут присваиваться в качестве значений литералы, скрипт может также присваивать массивам значения переменных или даже других массивов, как показано ниже:

@stuff = ($age, $name)

@FriendsOfMine = ('Joe', 'Mary', @FriendsOfYours);

В следующем примере используются части массивов:

@weekend = @days[0, 6] ; # результат ('Sun', 'Sat')

print (@days[1. . 5, 0, 6]); # выведет 'MonTueWedThuFriSunSat'

Если скрипт использует переменную типа массив в контексте скаляра, то значением служит число элементов массива. Скалярным контекстом является такой контекст, где только скалярные значения имеют смысл. Например, следующее выражение использует скалярный контекст для массива stuff для того, чтобы определить число элементов, содержащееся в массив. Если число элементов, больше или равно 2, то скрипт выдает сообщение и заканчивает исполнение:

(@stuff >= 2) || die "Too much stuff! ";

Функция die служит директивой языку Perl закончить выполнение и выдать при этом указанное сообщение. Если сообщение не содержится, то функция просто заканчивает выполнение скрипта. Perlтакже поддерживает специальную конструкцию $# переменная, которая возвращает последнее значение индекса в массиве. Например, следующее выражение for использует $[ для того, чтобы определить начальное значение индекса массива, и $# для определения последнего из элементов массива. При этом с помощью выражения for выводятся значения каждого из элементов:

for ($i =$[; $i <= $#stuff; $i++)

{

print $stuff[$i];

}

Записанный цикл for можно заменить следующим эквивалентным выражением:

Print @stuff;

Роль контекста аля переменных скалярного и векторного типа

Отметим, что оператор построения списка (,) выглядит точно так же, как оператор (, ) последовательного вычисления (sequentialevaluation). Какой из операторов используется, зависит от контекста, в котором он появляется, в частности, является ли переменная скаляром или массивом. Perl использует конструирование списков в контексте массивов и последовательное вычисление для скаляров. Рассмотрим следующие выражения:

@an_array = (1, 2, 3, 4, 5);

$a_scalar = (1, 2, 3, 4, 5);

В первом выражении инициализируется массив, в то время как второе выражение устанавливает значение скалярной переменной $a_scalar равным 5, отбрасывая первые четыре величины. Рассмотрим два следующих выражения:

print $assoc{1, 2};

print @assoc{1, 2};

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

@x = @list;

$x = @list;

Ассоциативные массивы

Ассоциативные массивы аналогичны обычным массивам в том отношении, что они представляют собой список скалярных переменных. Различие заключается в том, что массив должен использовать целочисленные значения в качестве индексов при выборе элементов массива, тогда как ассоциативный массив может использовать величины любого типа для выбора элементов массива. Индексные величины для ассоциативного массива называются ключами. Рассмотрим следующие примеры:

$ages{'Bob'} = 35;

$ages{'Mary'} = 25;

$, = ' '; # change output separator for print operator

print @ages{'Bob', 'Mary'}; # выведет '25 35'

print keys(%ages); # выведет 'Bob Mary'

for $name (keys(%ages))

{

print "$name is $ages{$keys} ";

}

Как можно видеть, программа присваивает значения переменной '$, ' (скалярная переменная, именем которой является запятая). Скрипт использует это выражение для того, чтобы при дальнейшем использовании оператора print выходные данные не сливались между собой. Далее в этой главе обсуждаются специальные переменные, такие как '$, '. Ассоциативные массивы идентифицируются с помощью фигурных скобок. Так же как с массивами, при ссылках на ассоциативный массив целиком индексы не используются. Например, ссылка@ages{'Bob', 'Mary'} использует индексы в скобках, что указывает на ассоциативный массив. Префикс @ указывает на то, что речь идет о массиве. Аналогичное использование знака доллара перед массивом указывает, что используется скалярная величина.

Примечание: Если два ключа заданы, то вместе со знаком @ эта говорит о том, что речь идет о части ассоциативного массива и результат должен быть в виде списка. Такое выражение эквивалентно #ages{' Bob'}, #ages{'Mary'}. которое имеет своим значением величину (35, 25).

Выражение print keys(%ages) вызывает оператор keys, который возвращает полный список ключей ассоциативного массива. Ссылка %ages со знаком процента в качестве префикса означает, что ссылка относится ко всему ассоциативному массиву. Обратите внимание, что цикл for ссылается на переменные, заключенные в двойные кавычки. Наконец, последний из рассмотренных примеров также использует оператор keys и вводит цикл for для распечатки всех сочетаний ассоциативного массива. Цикл for ссылается на переменные, заключенные в двойные кавычки. Perl, в свою очередь, заменит значения, на которые ссылаются переменные, в то время, когда будет анализировать строку. Программисты называют этот процесс подстановкой переменной или интерполяцией.

Примечание: Perl не интерпретирует переменные, содержащие строкив одинарных кавычках.

Операторы PERL

В то время как типы данных и переменных языка Perl значительно отличаются от соответствующих типов языка С, операторы и выражения Per] должны вам показаться гораздо более знакомыми. Все операторы С присутствуют в языке Perl, за исключением операторы приведения типов (type), операторы обращения к содержимому указателя *ptr и оператора выбора члена структуры var. member илиvar->member. Кроме того, в языке Perl реализовано много новыхоператоров для использования в таких операциях как сравнение иобработка строк.

Арифметические операторы

Арифметические операторы действуют на числовые значения, и их результатом является число. Если выражение включает строковые операнды, то Perl конвертирует строковые значения в числовые перед тем, как оценить выражение. Perl выполняет преобразование строк в числа подобно тому, как это делает функция atof() языка С в библиотеки времени выполнения. В настоящее время Perl поддерживает следующие арифметические операторы: ? + сложение? - вычитание или изменение знака? * умножение? / деление (только для чисел с плавающей запятой) ? % взятие по модулю (только для целочисленных значений)

Рассмотрим примеры следующих арифметических операций языка Perl:

$x = 2. 5;

$y = 3;

print ($x + 2*$y); # выведет 8. 5

print (7 / $y); # выведет 2. 3333333

print int (7 / $y); # выведет 2

print (7 % $y); # выведет 1

print (7. 5 % $y); # выведет 1

Примечание: В языке Perl оператор деления всегда имеет результатом 4ucw с плавающей точкой, а результатом взятия одного числа по модулю другого является целое число и причем предварительно оба операнда преобразуются к целому типу.

Рассмотрим следующую операцию взятия по модулю:

print (7. 9 % 3. 6); # выведет 1 то же (7 % 3) = 1

Perl также поддерживает операторы инкремента и декремента:? ++ декремент в префиксной или постфиксной форме? - инкремент в префиксной или постфиксной форме Рассмотрим примеры операций инкремента и декремента:

$x = 4;

++$x;

print $x; # выведет 5

$y = $x-; # уменьшит x после присвоения y значения x

print "$y $x" # выведет 5 4

Наконец, Perl обеспечивает арифметический оператор для возведения в степень (**). Рассмотрим следующие примеры использования операции возведения в степень:

$x = 2 ** 3; # результат 8

$x = 2 ** 0. 5; # квадратный корень из 2

$x = -2 ** -3; # 1/(-2 в кубе), результат -1/8 (-0. 125)

Побитовые операторы

Побитовые операторы воздействуют на бинарное представление целых чисел и имеют целочисленный результат. Если операндом является строка или дробное число, Perl предварительно преобразует его в целое число, обрабатывает операнд, используя 32-битноепредставление. Все побитовые операторы С представлены в языке Perl: ? | побитовое ИЛИ? &; побитовое И? ^ побитовое исключающее ИЛИ? ~ побитовая инверсия? << сдвиг влево? >> сдвиг вправо

Рассмотрим следующие примеры побитовых операций:

$x = 5; # 101 в двоичном

$y = 3; # 011 в двоичном

print $x | $y; # 7 (111)

print $x &; $y; # 1 (001)

print $x ^ $y # 6 (110)

print $x &; ~1; # 4 (100)

print $x << 2 # 20 (10100)

print $x >> 1 # 2 (10)

Так же как в С, поведение операторов сдвига вправо зависит от реализации языка в случае, если операнд является отрицательным.

Операторы сравнения

Операторы сравнения сравнивают величины двух операндов. Также как при работе с арифметическими операторами, Perl преобразует строчные операнды в численные перед тем, как выполнять сравнение. Для того чтобы позволить скрипту сравнивать строки, которые не являются числами, Perl имеет дополнительные операторы строкового сравнения. Эти операторы сравнивают строки, используя величины ASCII. Если численное значение задано как операнд при сравнении строк, оно сначала преобразуется в строку. Таблица 12. 1перечисляет операторы сравнения:

Число Строка Значение

= = eq равно

!= nе не равно

> gt больше чем

< it меньше чем

>= gе больше или равно

<= lе меньше или равно

<=> cmp не равно (результат со знаком)

Табл. 12. 1. Операторы сравнения языка Perl Результатом операции сравнения является единица, если сравнение истинно и нуль в противном случае. Однако последняя операция (<=> или cmp) может возвращать значения -1, 0 или 1 в зависимости от того, является ли значение первого операнда меньше, чем второго, равным ему или большим.

Примечание: Оператор cmp языка Perl ведет себя, аналогично функции Strcmp() библиотеки времени выполнения языка С.

Рассмотрим следующий пример сравнения:

$x = 5; # x равно 5

print ($x < 4); # если false, то выведет 0

Логические операторы

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

Логические операторы языка Perl включают следующие:

? || логическое ИЛИ

? &;&; логическое И

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

? ! логическое отрицание ()

? ?: условная операция

?, последовательное выполнение

Оператор логического отрицания (!) заменяет значение булевой величины на противоположную. Так же как и в С, в языке Perl условный оператор (?:) использует три операнда. Выражение, использующее условный оператор, имеет следующую форму:

Condition? true-result: false-result

Аналогично, следующее выражение использует условный оператор для того, чтобы предоставить Бобу полный доступ, а всем остальным ограниченный:

$access = ($user eq 'Bob' ? 'Full': 'Limited');

Оператор последовательного выполнения <, > (также известный как оператор запятая) не является вполне логическим оператором, поскольку он не анализирует истинность своих операндов. Perl выполняет операнды оператора последовательного выполнения слева направо и возвращает значение самого правого операнда. Следующий пример иллюстрирует использование оператора запятая в цикле for.

For ($i=0, $j=10; $i<10; $i++, $j-)

{

Print i$, ' ', $j

}

Строковые операторы

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

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

print 'b'. 'an' x 2. 'a'; # выведет 'banana'

Как показано, это выражение использует конкатенацию строк иоператор репли-кации для того, чтобы напечатать строку <banana>. Два последних оператора используются для проверки того, включаетли строковый операнд заданный образец. Этот вопрос детально обсуждается в разделе <Регулярные выражения>. Следующий пример иллюстрирует их использование:

$var = 'banana';

print ($var =~ /ana/) ? TRUE: FALSE;

В этом случае оператор проверки вхождения в строку образца(=~) использовался для проверки того, входит ли образец ana в переменную $var. В данном случае выражение принимает значение <истинно>.

ОПЕРАТОРЫ ПРИСВАИВАНИЯ

Если вы знакомы с языком программирования С, то формы операторов присваивания языка Perl должны быть для вас совершенно знакомыми. Так же как и в С, эти операторы заставляют Perl выполнить специальные операции со значениями, которые появились с правой стороны оператора, и затем выполнить присваивание:

= += -= *= /= %= |= &;=

^= ~= <<= >>= **=. = x=

LVALUES В языке Perl, так же как и в С, l value представляет собой имя того, что стоит с левой стороны оператора присваивания. Таким образом, lvalue представляет собой целостность, которой может быть присвоено значение, например, lvalue может быть переменной. Например, скрипт Perl не может присвоить значение строке символов, наподобие выражения <Bob> = 32, поскольку <Bob> не является lvalue. Тем не менее, скрипт может присвоить значение переменной $Bob, например, следующим образом $Bob = 32, поскольку переменная $Bob является lvalue. В языке Perl любая целостность, которая может использоваться как lvalue, обычно таковой и является. Например, следующее выражение упаковывает (pack) и распаковывает (unpack) список значений, причем список переменных в первом случае и три скалярных во втором являются lvalues:

@color = ($r, $g, $b); # пакет цветов

($r, $g, $b) = @color; # распаковка цвета

Когда вы работаете со списками в языке Perl, оператор присваивания не обязательно относится ко всему списку. Скрипт может присваивать значения отдельным элементам списка, как показано ниже:

@items[2, 4, 7] = (100, 200, 300);

В этом случае оператор присваивает значение трем элементам списка. Аналогичным образом следующее выражение распаковывает элементы списка, присваивая значения двух первых элементов двум скалярным переменным, а остаток массива - списочной переменной:

($arg1, $arg2, @rest) = @ARGV; # можно смешать скаляры и массивы

Операции для работы со списками

В состав операций для работы со списками входят следующие:

-, конструктор списков

-. . оператор области

- х оператор репликации

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

@digits = 0. . 9; # список (1, 2, 3, 4, 5, 6, 7, 8, 9)

Аналогичным образом, это выражение может использовать оператор области для создания области изменений индексов массива. Предположим, что список @days содержит дни недели (начиная с воскресенья). В следующем выражении списку @weekdays присваиваются значения, начиная от понедельника до пятницы:

@weekend = @days[1. . 5];

Наконец, следующее выражение использует два оператора области для создания списка шестнадцатеричных цифр:

@hex_digits = (0. . 9, a. . f);

Оператор репликации просто создает копии данного операнда указанное число раз. Например, в следующем выражении список значений 1, 2, 3 повторяется три раза:

Операторы для работы с файлами

Perl содержит обширный список операторов для работы с файлами. Имеется не менее 27 операторов, возвращающих специфическую информацию о файле, даже не открывая его. Многие операторы языка Perl ориентированы на системы UNIX, но следующие операторы работают на любых системах:

    -d проверяет наличие каталога -е определяет наличие файла -s определяет размер файла -w определяет, можно ли писать в данный файл

Следующие два файловых оператора возвращают булево значение. Третий оператор возвращает размер файла в байтах. Следующий текстиллюстрирует использование этих операторов:

If (-e, 'perl. exe')

{

print 'File size is:' - s 'perl. exe';

}

else

{

print 'can t find perl. exe ';

}

(-w 'SomeFile') || die "Cannot write to SomeFile ";

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

Как и всякий язык программирования, Perl определяет приоритеты выполнения операторов, с помощью которых упорядочивается последовательность их выполнения. Таблица 12. 2 перечисляет приоритеты операторов, начиная от высшего и следуя к низшему:

? ++? ! ~ унарный минус

? **

? =~ !~

? * / % х

? +? <<>>

? - d - е - s - w (и другие файловые операторы)

? <> <= >= It gt le ge

? = = != < => eq ne cmp

? &;

? |^

? &;&;

? ||

?. .

?

?: = += -= *=

Табл. 12. 2. Приоритеты операторов языка Perl от высшего к низшему

В своем скрипте вы можете изменять последовательность выполнения операторов с помощью скобок.

Конструкции языка PERL

Perl поддерживает все выражения языка С, используя почти идентичный их формат. Например, управляющие конструкции if, while, do. for и goto используются в обоих языках в одинаковой форме. Как вы увидите в дальнейшем, оператор continue имеет несколько иное значение в языке Perl. Его прежнее значение теперь называют next, а оператор break называют теперь last. Perl не реализует оператор switch. Кроме того, некоторые выражения языкаС можно найти в Perl в иных форматах и добавлены многие новые выражения.

Простые и составные операторы

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

$Title = 'Web Programming';

Так же как и при программировании на С, скрипты Perl могут содержать блоки операторов, или составные операторы, которые помещаются в фигурные скобки ({}), как показано ниже:

{

# Операторы

# Другой блок операторов

}

Ваши скрипты будут широко использовать блоки инструкций наряду с более сложными операторами. Как и в языке С, скрипты на языке Perl могут использовать блоки инструкций для определения области видимости (scope) локальных переменных. Однако определение локальных переменных в блоке не является автоматическим. Для их декларации скрипт должен использовать ключевое слово local. Далее в этой главе мы рассмотрим область видимости переменных в деталях.

Условные операторы

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

if (expr)

statement; // приемлемо для C но не для Perl

if (expr)

{

statement; # вот так нужно делать в Perl

}

Аналогичным образом инструкции языка Perl else работает немного отлично от соответствующей инструкции в С. В языке Perl инструкции также должны быть заключены в фигурные скобки и образовать блок:

// Пример в С неприемлемо в Perl

if (expr1)

statament1;

else if (expr2)

statement2;

else

ststement3;

Ниже показано, что Perl позволяет использовать конструкцию elsif:

if (expr1)

{

statament1;

}

elsif (expr2)

{

statement2;

}

else

{

ststement3;

}

Оператор UNLESS

В языке программирования С программисты используют логическое отрицание (!) для изменения булевой величины на противоположное, как показано ниже:

if (!(expr)) // Отрицание на С

{

statement;

}

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

unless (expr)

{

statement;

}

Примечание: В отличие от языка С, Perl не содержит оператора переключения switch.

Оператор DO

Одним из частных случаев блочных операторов служит оператор do, который позволяет блоку инструкций возвращать значения. Значением, которое оператор do возвращает, является значение последнего выражения, оцененного в рамках блока. Например, следующий оператор do сравнивает строковую переменную $Month с месяцами года и присваивает переменной $DayCount значение, равное числу дней в месяце:

$DayCount = do

{

if ($Month eq 'September' || $Month eq 'April' || $Month eq 'June' ||

$Month eq 'November')

{

30;

}

elsif ($Month eq 'Februry')

{

$Year &; 3 ? 28: 29; # Проверка на весокосный год

}

else

{

31;

}

};

Обратите внимание, что Perl требует наличия точки с запятой в конце блока do. Не путайте блок do с оператором do while, который будет рассматриваться ниже в этой главе.

Циклы и ветвления

Perl поддерживает операторы циклов for, while и do с небольшими отличиями от их реализации в языке С. Существенным отличием служит то, что Perl требует использования инструкций блоками, заключенными в фигурные скобки. Кроме того, как вы познакомитесь, далее, Perl расширяет конструкцию цикла, что6ы обеспечить ее некоторые новые формы. В следующих примерах циклы for, while и do работают аналогичным образом на языках С и Perl:

for($i = 0; $i< 100;$i++)

{

printf("%d ", $i) ;

}

while ($i > 0)

{

printf("%d ", $i-);

}

do {

printf("%d ", $i++);

} while ($i < 0);

Конструкция циклов на языке С отлична от конструкции на языке Perl еще и в том, что Perl не содержит оператора break, а оператор continue выполняет совершенно иную функцию. К счастью, Perl обеспечивает некоторые новые, более гибкие и более интуитивно понятные конструкции:

? last выход из цикла (как оператор С break)

? next начать новую итерацию (как оператор С continue)

? redo повторить текущую итерацию

Для понимания конструкций циклов на языке Perl, необходимо разобраться с использованием блока continue. Рассмотрим следующий цикл while, который содержит блок continue:

$i = 100;

while ($i > 0)

{

print $i;

} continue {$i-}

Вы можете представлять себе блок continue как третье выражение в цикле for, которое выполняется на каждой итерации. Аналогичным образом Perl выполняет блок continue в конце каждой итерации. Однако, как вы узнаете далее, блок continue обеспечивает скрипту более полный контроль над процессом, чем обеспечивает цикл for. Когда цикл на языке Perl использует оператор next, блок continue все равно выполняется, если только он существует. Однако если цикл использует оператор redo, блок continue не исполняется.

Метки

В скрипте Perl метки просто означают имя, соответствующее некоему положению внутри скрипта. Имена меток оканчиваются двоеточием (например, outerloop:). Используя оператор goto, скрипт может осуществлять переходы на метку. Дополнительно могут использоваться операторы last, next и redo, для перехода к метке. Следующий код иллюстрирует использование оператора last для перехода на метку:

outerloop: while ($i > 0)

{

While ($j > 0)

{

#Здесь какой-нибудь другой процесс

if ($needToAboutLoop)

{

last outerloop;

}

}

}

В этом случае инструкция содержит ветвь last для перехода наметку outerloop и окончания выполнения цикла.

Цикл UNTIL

Еще одной конструкцией цикла в языке Perl является цикл until, который является противоположностью циклу while. Как вы помните, в цикле while инструкции выполняются до тех пор, пока выполняется заданное условие. В цикле until, напротив, инструкции выполняются до тех пор, пока не будет выполнено условие. Например, рассмотрим цикл while, такой, как показан на следующей странице.

While (!(expr))

{

statement;

}

Используя цикл until, можно создать идентичный цикл, показанный ниже:

until (expr)

{

statement;

}

Аналогичным образом следующая конструкция do while использует оператор логического отрицания для того, чтобы выполнять цикл, пока заданное булево выражение не станет истинным:

do {

statement;

} while (!(expr));

Используя конструкцию do until, вы можете сформировать идентичный цикл без использования логического отрицания:

do

{

statement;

} until (expr);

Циклы FOR И FOREACH

Perl поддерживает цикл for совершенно аналогично языку С:

for (statement1; expression; statement2)

{

statement3;

}

Например, следующий код использует цикл for для того, чтобы вывести значения чисел от 0 до 100:

for ($digit = 0; $digit <=100; $digit++)

{

print $digit, ' ';

}

Дополнительно Perl содержит конструкцию цикла foreach, который позволяет скрипту организовывать итерации в списках и массивах. Рассмотрим пример:

@list = ('a', 'b', 'c');

foreach $arg (@list)

{

print "List item: $arg ";

}

foreach $i (1. . 10)

{

print "iteration $i "

}

В первом случае цикл foreach осуществлял перебор значений в списочной переменной @list. Во втором примере в цикле foreach осуществляется перебор чисел в диапазоне от 1 до 10. Внутри цикла foreach может фигурировать список, состоящий из литералов, или массив, как было проиллюстрировано в предыдущем примере. После выполнения одной итерации циклом, специальная скалярная переменная {$arg в первом случае и $i во втором случае)принимает значение из заданного списка элементов. Область видимости этой скалярной переменной в цикле foreach ограничивается телом цикла. Поэтому скалярная переменная цикла, foreach не будет конфликтовать с идентичным именем переменной, определенной вне цикла. В следующем коде переменная с именем $i используется внутри и вне цикла foreach:

$i = 1001;

foreach $i (1. . 9)

{

print "$i "; # цикл выведет 123456789

}

print "$i ";

Как можно увидеть из этого примера, переменная $i, используемая для организации итераций цикла, не конфликтует с переменной $i, определенной вне цикла. Особенностью цикла, foreach, которую ваши скрипты могут использовать, является возможность модификации элементов массива. (Будьте осторожны при реализации этой возможности!) Рассмотрим следующий цикл foreach, который добавляет значение 10 каждому элементу массива:

@list = 1. . 5;

foreach $i (@list)

{

$i += 10;

}

$, = ' ';

print @list; # выведет 11 12 13 14 15

Сделаем несколько заключительных замечаний относительно цикла foreach. В языке Perl имена foreach и for рассматриваются как синонимы. Поэтому в скриптах можно использовать эти имена попеременно. Perl, в свою очередь, будет определять тип цикла, основываясь на его контексте.

Оператор безусловного перехода GOTO

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

$i = 1;

loop:

print $i++, ' ';

if ($i <=10)

{

goto loop;

}

Модификаторы операторов

В языке Perl используются специальные формы конструкции if, unless, while и until, которые позволяют управлять ходом вычислений. В определенных случаях эти специальные конструкции могут сделать ваш код более ясным и легко читаемым. Для того, чтобы код было легче читать и его смысл был более очевиден, целесообразно выбирать подходящий формат для записи. Рассмотрим следящее выражение, использующее функцию die для того, чтобы закончить выполнение скрипта, если значение переменной $count меньше чем 10:

if ($count < 10)

{

die;

}

Если расположить функцию die перед оператором if, как показано, ниже, число строк кода уменьшится:

die if ($count < 10);

Аналогичным образом, то же самое выражение может быть записано в следующем виде:

($count >= 10) || die;

В данном случае, если переменная $count больше либо равна10, Perl прекращает дальнейшее вычисление в данной строке и функция die не выполняется В противном случае, если переменная $count меньше 10, после вычисления первой части выражения код запускает функцию die и тем самым заканчивает выполнение скрипта. Наконец, в следующем примере использование конструкции unless также позволяет уменьшить число строк до одной:

die unless ($count >= 10);

Аналогичным образом, следующие циклы while являются идентичными:

$i = 0;

while ($i < 10)

{

$i++;

}

$i = 0;

$i++ while ($i < 10);

Как можно видеть, используя модификацию конструкции, скрипт позволяет сократить число строк в записи цикла до одной. Аналогичным образом, следующие циклы until эквивалентны:

$i = 10;

until ($i >= 10)

{

$i++;

};

$i = 10;

$i++ until ($i >=10);

Примечание: Во всех четырех случаях, даже если выражение для оценивания расположено после инструкции для выполнения, Perl сначала анализирует условие и только потом выполняет инструкцию.

Генерация динамических выражений с помощью функции EVAL

Поскольку Perl является интерпретируемым языком, ваши скрипты могут использовать Perl для того, чтобы генерировать код <налету>, то есть динамически, во время исполнения скрипта. Именно так работает отладчик Perl (который сам является Perl-программой с именем Perldb. PL). Проектируя скрипты, вы можете использовать такой динамический код для создания динамических переменных имен или даже построения специальных подпрограмм. Perl оценивает динамические выражения, используя функцию eval. В следующем примере создается динамическая инструкция путем присвоения переменной в качестве значения текста, который, собственно, и содержит требуемую инструкцию языка Perl. Дальнейшие инструкции используют функцию eval для того, чтобы выполнить эту инструкцию:

$perl_statement = 'print "Hello, world ";';

eval $perl_statement; # выведет Hello, world

$i = 1001;

$varname = '$i';

print eval $varname; # выведет значение $i

Примечание: Использование скриптом функции eval таит в себе опасности, в особенности, если скрипт передает функции eval данные, полученные от пользователя. Используя функцию eval, скрипт может выполнить произвольную команду языка Perl, включая даже системные команды. Это дает возможность пользователю контролировать программу, что может быть особенно рискованным для сетей Internetи Web.

Похожие статьи




Скалярные переменные - Язык программирования PERL. Сфера применения

Предыдущая | Следующая