Регулярные выражения в Perl

0

0

Подскажите пожалуйста как из строки выдернуть подстроку, совпадающую с маской например строка вида "т.1234587 т./ф. 1234678" и хочется чтобы выражение типа /т\.???????/ вернуло "т.1234587". Через какую функцию в Perl это можно сделать?

Ссылка

← Погремушки для Emacs

Создаю свой окно а в нем хочу запустить другое приложение →

if ($s =~ /(т\.[0-9]+)/)
{
print $1;
};

UncleAndy ★★★
(24.01.05 20:26:00 MSK)

$s =~ s/(т\.[0-9]{6,8})/$1/;
в $s была строка, после выполнения в ней уже то че ты хотел.
{6,8} ставит ограничение в количество символов.

godexsoft
(24.01.05 21:01:29 MSK)

Ссылка

Ответ на: комментарий от UncleAndy 24.01.05 20:26:00 MSK

при локали настренной это будет воркать, яб так написал: (.\.\d+)\s ...

Дима

~~vilfred~~ ☆☆
(26.01.05 03:30:17 MSK)

Ссылка

Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.

← Погремушки для Emacs

Создаю свой окно а в нем хочу запустить другое приложение →