Hello Monks-
I have a file that is just a huge block of text. I have found the documentation on Text::Autoformat and read up on using it. What I would like to do is just slice out individual sentences and then feed them individually to Text::Autoformat.. To do this I am looking for someway to split the text at every '.' '?' or '!'. In addition there are a few places in the text where the punctuation is missing, and so the only indication of a new sentence is that a lowercase letter is followed by a capital letter. (For example it looks likeThis.)
I am not a regular Perl user, but I think a regex including ‘/.?!/’ might be of some use. On the other hand, the small letter capital letter split has me totally flummoxed.
Here is an example of what I am looking for:
__DATA__ The Tell-Tale HeartEdgar Allen PoeTRUE! nervous, very, very dreadfully + nervous I had been and am; but why WILL you say that I am mad? The d +isease had sharpened my senses, not destroyed, not dulled them. Above + all was the sense of hearing acute. I heard all things in the heaven + and in the earth. I heard many things in hell. How then am I mad? He +arken! and observe how healthily, how calmly, I can tell you the whol +e story. __END__
I would like to split it into something that looks like this:
__DATA__ The Tell-Tale Heart Edgar Allen Poe TRUE! nervous, very, very dreadfully nervous I had been and am; but why WILL + you say that I am mad? The disease had sharpened my senses, not destroyed, not dulled them. Above all was the sense of hearing acute. I heard all things in the heaven and in the earth. I heard many things in hell. How then am I mad? Hearken! and observe how healthily, how calmly, I can tell you the whole story. __END__
My thanks to anyone who can suggest a way to go forward with this.
-UHIn reply to Using punctuation to split a text by UrbanHick
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |