split na vety

[Jiri Polcar]

    Zdravim,

potreboval bych napsat RE pro `split' tak, aby jednotlive prvky
predstavovaly vety. Vetu, pro jednoduchost, definuji tak, ze musi
zacinat velkym pismenem a koncit [\.\?\!\:\;], po kterem muze nasledovat
mezera.  

Moje

        @list_of_sentences = split /(?=[\.\?\!\:\;]\s*[A-Z])/, $_;

funguje tak, ze "\.\s" je vzdy na zacatku nasledujici vety, coz nechci.

Podminkou je, ze kdyz @list_of_sentences spojim zase dohromady, dostanu
presne totez, jako na vstupu.

        join '', @list_of_sentences


-- 
JP