Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Содержание сайт... 65535
Вызов хранимых ... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Организация зап... 64602
Создание потоко... 61594
Модуль Forms 61229
Создание отчето... 61174
ТЕХНОЛОГИИ ДОСТ... 57621
Пример работы с... 55124
Имитационное мо... 53015
Реклама
Сейчас на сайте
Гостей: 5
На сайте нет зарегистрированных пользователей

Пользователей: 13,067
новичок: senata7
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

База данных студентов на Delphi (файл записей) + Блок схемы
Поиск пути в графе заданном списками инцедентности на Turbo Pascal
Сравнение двух бинарных деревьев на Turbo Pascal + отчет

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Функции, связанные с регулярными выражениями
pos
Синтаксис:
pos [$SCALAR]





Функция pos() возвращает позицию, в которой завершился последний глобальный поиск $SCALAR=~m/.../g, осуществленный в строке, задаваемой переменной $SCALAR. Возвращаемое значение равно числу length($`) + length($&). Следующий глобальный поиск m/.../g в данной строке начнется именно с этой позиции.


Если аргумент $SCALAR отсутствует, возвращается позиция завершения последнего глобального поиска, осуществленного в строке $_.


Пример:
$words = "one two three four";
while ($words =~m/\w+/g) {
print "pos=",pos($words)," length(\$`)=",length($`),
" length(\$&)=",length($&),"\n";
}




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


pos=3 length($`)=0 length($&)=3
pos=7 length($`)=4 length($&)=3
pos=13 length($`)=8 length($&)=5
pos=18 length($`)=14 length($&)=4




функцию pos() можно использовать в левой части операции присваивания для изменения начальной позиции следующего поиска:
# изменение начальной позиции для последующего поиска
$words = "one two three four";
pos $words = 4;
while ($words =~m/\w+/g) {
print pos $words, "\n";
}




Здесь поиск слов начнется со второго слова, и будут выделены номера позиций 7, 13 и 18.

--------------------------------------------------------------------------------
quotemeta

Возвращает строку, в которой перед каждым не алфавитно-цифровым символом поставлена обратная косая черта. Значение параметра ВЫРАЖЕНИЕ интерпретируется как строка. (Внутренняя функция реализации управляющего символа \Q в строках в двойных кавычках.)
quotemeta ВЫРАЖЕНИЕ
quotemeta (эквивалентно quotemeta $_)
Например, в результате выполнения
print quotemeta "*****", "\n";
будет выведена строка
\*\*\*\*\*
--------------------------------------------------------------------------------
split
Синтаксис:
split [/PATTERN/[, EXPR[, LIMIT]]]





Разбивает строку EXPR на отдельные строки, используя в качестве разделителя образец, задаваемый регулярным выражением PATTERN. В списковом контексте возвращает массив полученных строк, в скалярном контексте - их число. Если функция split() вызывается в скалярном контексте, выделяемые строки помещаются предопределенный массив @_. Об этом не следует забывать, так как массив @_ обычно используется для передачи параметров в подпрограмму, и обращение к функции split() неявно в скалярном контексте эти параметры уничтожит.
Если присутствует параметр LIMIT, то он задает максимальное количество строк, на которое может быть разбита исходная строка. Отрицательное значение параметра LIMIT трактуется как произвольно большое положительное число.
Если параметр EXPR опущен, разбивается строка $_. Если отсутствует также параметр PATTERN, то в качестве разделителя полей используются пробельные символы после пропуска всех начальных пробельных символов (что соответствует заданию образца в виде /\s+). К пробельным символам относится пробел (space), символ табуляции (tab), возврат каретки (carriage return), символ перевода строки (line feed) и символ перевода страницы (form feed).
Предопределенная глобальная переменная $_ служит для обозначения используемой по умолчанию области ввода и поиска по образцу. Обычно мы осуществляем ввод при помощи операции "<>"("ромб"). Внутри угловых скобок <> может стоять дескриптор файла ввода, например, . Если дескриптор файла отсутствует, то в качестве файлов ввода используются файлы, переданные программе Perl в качестве аргументов командной строки.
Пусть, например, программа содержится в файле script.pl:
#! /usr/bin/perl
while (<>) {
print;
};



Программа вызвана следующим образом:
script.pl file1 file2 file3
Тогда операция <> будет считывать строки сначала из файла file1, затем из файла file2 и, наконец, из файла file3. Если в командной строке файлы не указаны, то в качестве файла ввода будет использован стандартный ввод.
Только в случае, когда условное выражение оператора while состоит из единственной операции "ромб", вводимое значение автоматически присваивается предопределенной переменной $_. Вот что означают слова о том, что переменная $_ применяется для обозначения используемой по умолчанию области ввода. Аналогично обстоит дело с поиском по образцу.
Пример использования функции split():
#!/usr/bin/perl
while (<>) {
chop;
print "Число полей во входной строке '$_' равно ", $n=split;
print "\nВходная строка разбита на строки:\n";
foreach $i (@_) {
print $i . "\n";
}
print "Объединение списка строк в одну строку через '+':\n";
$joined = join "+", @_;
print "$joined\n";
}




В результате применения операции ввода <> внутри условного выражения оператора while вводимая строка будет присвоена переменной $_. Функция chop() без параметров применяется к переменной $_. В операции print вторым операндом является выражение $n=split, в котором функция split вызывается в скалярном контексте и без параметров. Поэтому она применяется по умолчанию к переменной $_. В качестве разделителя полей по умолчанию используется множество пробельных символов, а результат помещается в массив @_. А затем к массиву @_ применяется функция join(), объединяющая строки-элементы массива в одну строку.


Если ввести строку "one two three", то вывод будет иметь вид:
one two three
Число полей во входной строке 'one two three' равно 3
Входная строка разбита на строки:
one
two
three
Объединение списка строк в одну строку через '+':
one+two+three

--------------------------------------------------------------------------------
study

Оптимизирует строковые данные переметра СТРОКА для дальнейшего использования в повторных операциях поиска по образцу. В цикле с несколькими опрерациями поиска может сэкономить время выполнения.
study ВЫРАЖЕНИЕ
study (эквивалентно study $_)
Опубликовал Kest January 10 2009 17:06:57 · 0 Комментариев · 5531 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
CLR via C#
Время загрузки ...
База предприятий ...
Краснов М. - Open...
Обучение Borland ...
Пример OpenGL гра...
Globus VCL Extent...
Игра в крестики н...
Панель случайной ...
Учебник для продв...
Пример работы с б...
SysInfo [Исходник...
База данных: Книж...
Zoom [Исходник на...
С# для профессион...
ЯЗЫК ПРОГРАММИРОВ...
Run
Расширенный загру...
FilesInfo
MP3 Архив v.2.0

Топ загрузок
Приложение Клие... 100384
Delphi 7 Enterp... 83517
Converter AMR<-... 20051
GPSS World Stud... 11298
Borland C++Buil... 11233
Borland Delphi ... 8175
Turbo Pascal fo... 6987
Visual Studio 2... 4970
Калькулятор [Ис... 4416
FreeSMS v1.3.1 3516
Случайные статьи
Для входа в просмо...
Глава 26. ХР в ...
ОБЛАСТИ ВИДИМОСТИ ...
Контроль перегрузки
Записать в текстов...
Разборка приставки...
13.2. Линейные стр...
10 основных способ...
Записать в конец к...
Примеры кода
Приложение XHTML B...
Другие команды
Распространенные о...
Ц - Алфавитный ука...
Язык программирова...
Топология сети
Производные классы
Структуры XForms
File not open
Организация информ...
5 способов повышен...
Понятие функтора
10.2. Приведение ...
Сетевые интерфейсы...
Логическая бомба н...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?