Страница 1 из 1

Perl, регулярка откусывает последнюю цифру)

Добавлено: 2011-04-17 7:20:49
garrotte
Приветствую товарищи!)
Есть хендлер на Perl в nginx, задача, получить значение определенной cookie из заголовка запроса, выглядит все это так:
например заголовок Cookie: ct=3406121048; ha=2277742177; hash=blabla;

Код: Выделить всё

my $cookie_ha=$r->header_in("Cookie");   # получаем заголовок cookie
$cookie_ha=~ s/.*ha=([^\s]+).+/$1/g;   # пытаемся вычленить значение куки ha
и вот что-то у меня никак правильная регэксп не получается, например приведенный выше, почуму-то откусывает последнюю цифру, хотя я его проверял в Regexp coach, там все работает исправно
пробовал еще несколько вариантов, но примерно с тем-же результатом
подскажите где я не прав, если не затруднит
спасибо

Re: Perl, регулярка откусывает последнюю цифру)

Добавлено: 2011-04-17 15:28:46
thefree

Код: Выделить всё

$cookie_ha=~ s/^ct=(\d+);\sha=(\d+);\shash=(\w+);$/$2/;

Re: Perl, регулярка откусывает последнюю цифру)

Добавлено: 2011-04-17 16:47:44
garrotte
thefree спасибо :)