особенность perl_module

[Domrachev Ivan]

Здравствуйте, nginx-ru.

Может кому пригодится.

Особенность perl_module:
конструкция вида
$r->uri=~/(.)$/;
не работает, а
my $uri=$r->uri;
$uri=~/(.)$/;
работает.

вероятно из за того, что в конце нет нулевого символа.
в документации сказанно про файлы, но к регулярным выражениям это
похоже тоже имеет отношение.

полный пример:
---
 my $r=shift;

 if($r->uri=~/(.)/){$r->header_out("test1","$1");}
 if($r->uri=~/(.)$/){$r->header_out("test2","$1");}

 my $uri=$r->uri;

 if($uri=~/(.)/){$r->header_out("test3","$1");}
 if($uri=~/(.)$/){$r->header_out("test4","$1");}
---

выдаёт:
---
test1: /
test3: /
test4: l
---

-- 
С уважением,
 Domrachev                          mailto:Domrachev.Ivan at gmail.com