Perl regex - обьясните тупому :)

jumash

2 июля 2009, 12:37

362

perl -e 'my $x = q[Lambada 2004]; print $1."ок" if $x =~ m/([0-4]*)/;'

Почему он останавливается на первом же пустом символе? Разве при 0+ условии он не должен всё равно читать строку всю и пытаться хотя бы найти 0-4?:)

117

ippoman

2 июля 2009, 12:45

замените условие на $x =~ m/([0-4]+)/

jumash

2 июля 2009, 12:49

Я знаю как сделать правильно :)

Это тестовое задание Яндекса - мне интересно, почему с условием * он не пытается прочесть всю строку :)