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

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\n';

}

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

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

Как и всякий язык программирования, 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.Далее в этой главе мы рассмотрим область видимости переменных вдеталях.