Иллюстрированный самоучитель по Perl
в левой части операции присваивания
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 () можно использовать в левой части операции присваивания для изменения начальной позиции следующего поиска:
I изменение начальной позиции для последующего поиска
$words = "one two three four";
pos $words = 4;
while ($words =~ m/\w+/g) {
print pos $words, "\n"; }
В последнем случае поиск слов начнется со второго слова, и будут выведены номера позиций 7, 13 и 18.
ФУНКЦИЯ quotemeta () quotemeta [EXPR]
возвращает строку EXPR, в которой все символы, кроме алфавитно-цифровых символов и символа подчеркивания "_", экранированы символом "\". Например, в результате выполнения
print quotemeta "*****", "\n";
будет выведена строка
\*\*\*\*\*
Если аргумент EXPR отсутствует, вместо него используется переменная $_.
