Страница 1 из 1
Выборка из слова на perl
Добавлено: 2010-04-09 17:42:12
Rita
Помогите пожалуйста сделать выборку из слова.
Например, для $pptp присваивается 4325435-pptp345
Нужно после обработки перлом получить чтобы для $pptp присваивалось 4325435, т.е. вырезать "-pptp345"
Re: Выборка из слова на perl
Добавлено: 2010-04-09 18:05:32
terminus
Код: Выделить всё
$pptp = '4325435-pptp345';
$pptp = substr $pptp, 0, index($pptp, '-pptp345');
Re: Выборка из слова на perl
Добавлено: 2010-04-09 18:17:36
Rita
Немножко не то, я делаю выборку из базы и для $pptp присваиваются разные значения(сессии впн). Тут нужно как то с помощью шаблонов. Вот сижу читаю документацию, давно не упражнялось все уже выветрелось даже то что было
Re: Выборка из слова на perl
Добавлено: 2010-04-09 19:09:22
Гость
$pptp = '4325435-pptp345';
$pptp = -m/\d+/;
http://www.citforum.ru/internet/perl/regexp/
Re: Выборка из слова на perl
Добавлено: 2010-04-09 19:11:20
Rita
Ой, гость, спасибо конечно, но я нашла способ в виде $pptp=~ s/[-](\w+)//;
Но ваш шаблон возвращает 0
Re: Выборка из слова на perl
Добавлено: 2010-04-09 19:25:36
Гость
ну в принципе можно и так
но ты убиваешь строку исходную
поиск все же делаеться как то так
Код: Выделить всё
$pptp = '4325435-pptp345';
$pptp =~ m/^(\d+)-(\w+)/;
print $1;