Text::Balanced(3pm) a extrakce @neceho pomoci extract_bracketed()

Založil nettezzaumana, 18. 11. 2009, 18:26:16

Předchozí téma - Další téma

nettezzaumana

cau,

nejsem nejak sto pochopit jak se ma pouzit funkce extract_bracketed z Text::Balanced(3pm) ..
potrebuju z nasledujiciho napr. vybrat sekci foo{}

Kód (/tmp/blah) [Vybrat]
foo {
something
bar {
        yet another something
        }
}

baz {
anything else
}


.. ale jsem totalne zmatenej, neb $prefix je nutno pouzit cely a ackoliv tohle funguje:
> perl -E '$x = do { local $/; <>; }; use Text::Balanced qw(extract_bracketed); my($match, $reminder, $prefix) = extract_bracketed($x, "{}", "foo "); say $match' blah
{
something
bar {
        yet another something
        }
}

.. pro baz{} uz ne ani s RE aka /.*baz / .. takze soudim, ze to pouziti nejak delam spatne ..

diky za kazdou radu, zdravim

ps. RE brainfuck ubastlit umim, ale nelibi se mi to