The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

Каталог документации / Раздел "Perl" / Оглавление документа

[1] [2] [3] [4] [5] [след]

Удобства Perl: приятные мелочи. Часть 1


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

if (a == b) { c = d }

можно записать иначе:

c = d if a == b;

Согласись, намного удобнее - лишние составные операторы нам ни к чему :)

"Волшебные" переменные.

В Perl`е очень много замечательных переменных, на выделение которых программистом потребовалось бы много времени и кода. Постараюсь перечислить некоторые из них:

$0 - выделение базового имени программы-скрипта. Часто используют в распечатке флагов использования программы.
$1 ... $N - переменные, которые обретают свое значение в регулярных выражениях, заключенных в скобки. К примеру после такой строки:

$var=~/(.*)test-(.*)/;

значение $1 будет определено любыми символами до слова 'test', а $2 - после 'test-'.

$+ - содержит значение последней переменной для последнего успешного поиска. Это помогает узнать, какой вариант был обнаружен при альтернативном поиске, например для

/(x,*y)|(y.*z)/

в переменной $+ будет хранится содержимое $1 или $2 (в зависимости от результата поиска).

$/ - Переменная разделения записей.

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

open(FILE,"file.txt");
undef $/ # Уничтожаем $/
while (<FILE>) { $bigstring=$_ }
close(FILE);

$_ - переменная по-умолчанию.

Играет огромное значение и не обременяет программиста созданием новых дополнительных переменных. Хранит в себе текущий обрабатываемый элемент (актуальна для циклов). В ряде случаев ее вообще можно пропускать.

Например

while (<FILE>) {
chomp $_;
print "$_"
}

можно записать проще:

while (<FILE>) {
chomp;
print
}

Подразумевается, что параметром вызываемых процедур является $_.

$! - переменная последней ошибки.

Хранит в себе последнюю ошибку. Удобна в случае, когда необходимо узнать, что помешало открыть файл // прочитать данные и т.п. , например:

open(testfile,"test.txt") || die print "$!\n";

Вот пожалуй наиболее популярные так называемые, волшебные переменные. Их значение я уже называл чуть выше.

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

Вопросы? Пишите на e-mail. Постараюсь ответить.

Copyright Forb (2002)


[1] [2] [3] [4] [5] [след]


Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру