Jak projít všechny možnosti vyhodnocení RE?

[Pavel Smerk]

On Tue, May 29, 2007 at 06:37:19PM +0200, Pavel Smerk wrote:
> 	Ahoj,
> 
> počítám, že to nebude nějak složité (že chci jen trochu jinak využít něco,
> co perl už stejně umí), ale moc nevím, jak se zeptat Googlu či co přesně
> hledat. Pokud mám
> 
> $ perl -e 'print join(" ", "abc" =~ /(a.?)(.?c)/), "\n"'
> ab c
> 
> chtěl bych nějak dostat i druhé "možné řešení", tedy `a bc', v případě
> složitějších konstrukcí všechna možná řešení.

OK, tak neco umim:

$ perl -e '"abbc" =~ /
                (ab*)   (?{ $a[0] = $^N })
                (b*)    (?{ $a[1] = $^N })
                (b*c)   (?{ $a[2] = $^N })
                $       (?{ print join(" ", @a), "\n" })
                (?<=jiste neexistujici pravy substring)
        /x'
abb  c
ab b c
ab  bc
a bb c
a b bc
a  bbc

--- ale nechce se mi verit, ze by to bylo nutne delat takto skarede, ze to
nejde nejak primocare, takze stale uvitam nasmerovani na neco rozumnejsiho.

									P.