Архив форумов ЦИТФорума

[zarub]

пишу значит я так :
while ()
{
if (/(regexp)/g)
print "$2 \n";
}

И вот эта конструкция ищет только одно включение , то есть если в строке несколько элементов подходящих под наш (regexp) , то мне выписывает тока первый?
Где я лоханулся?

[Dae]

Вообще-то это делается так:

@list_of_matches = ($sring =~ m/$pattern/g);

Когда ты пишешь print "$2\n"; ты звлекаешь лишь одно совпадение. Если хочешь делать это в цикле попробуй убрать /g опцию, или даже так:

print "match:$1\n" while (/($pattern)/g);