[Moscow.pm] perl 5.18 and taint numbers

[Ruslan Zakirov]

2013/8/27 Anton Nikishaev <me на lelf.lu>

>
> On Aug 26, 2013, at 10:16 PM, Anton Yuzhaninov <citrin на citrin.ru> wrote:
> >
> >>
> >>    Это bug или feature? Если feature то вреда от неё больше чем пользы.
> >>
> >>
> >> В 5.16 тоже самое. the only way to bypass the tainting mechanism is by
> >> referencing subpatterns from a regular expression match.
> >
> > Проверять результат int/oct через regexp это какой то костыль IMHO.
> > Если уж и делать проверку числа, то через > и <
>

Дело не в результате int/oct, а в аргументе. ARGV нужно сначала почистить,
а потом использовать.

Betty:~ lelf$ perl -E 'say join ",", grep { /^(\d+)(?(?{ $^N > 5
> })$|(*FAIL))/a } 1..10'
> 6,7,8,9,10
>
>
> *убежал*
>
>
>
> --
> lelf
>
>
>
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>
>


-- 
Best regards, Ruslan.
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20130829/b4dd370f/attachment.html>