Dotaz: Text::Balanced(3pm) a extrakce @neceho ..

[nettezzaumana]

ahoj,

nejak nejsem sto pochopit, jak se pouziva Text::Balanced .. netusite nekdo, jak z:

foo {
something
bar {
        yet another something
        }
}

baz {
anything else
}

dostat obsah foo{} ?? berte to jako ze to je v nejakem souboru, co cte perlovskej program .. diky

ps. RE brainfuckem to snad tak nejak umim vyresit, ale to se mi nelibi ..

dekuji a zdravim

Odpovědi

[nettezzaumana]

ha, mam to, chce to sice jeste nejakou kosmetickou peci, ale funguje to:

> perl -E '$x = do { local $/; <>; }; use Text::Balanced qw(extract_bracketed); my($match, $reminder, $prefix) = extract_bracketed($x, "{}", "foo "); say $match' /tmp/brackets.txt
{
something
bar {
        yet another something
        }
}

zdarec a dik

[nettezzaumana]

hm. :( .. nemam. funguje to nejak divne .. nedokaze to stejnou metodou vyndat bar{}

[nettezzaumana]

hm. tak trocha samomluva .. uz vim proc to nevynda bar{}, pac prefix tam neni baz, ale od zacatku radku az po baz

to je depka ..