CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Regular Expressions: count sentences in document: Edit Log



andrewumb
New User

Oct 16, 2006, 11:03 PM


Views: 3423
count sentences in document

this is a second topic. i asking again

i have a file "test.txt" and contain
===================
<TEXT>
sentences one , sentence two . sentence three
aon two three.
</TEXT>
<TEXT>
laerning perl , with lingua . blaaaaaaaaaaaaa.
blaaaa. dsadsad.
<TEXT>
strill learning .sdaasdsad.dsadsadasd
.dsadsad
</TEXT>
====================

and in my case , <text> .. </text> we can say that "document"

and i want to count each sentence in document

my coding :

use HTML::TokeParser;
my $file="test.txt";
my $seleksi=HTML::TokeParser->new($file);
my $j=0;
while ($seleksi->get_tag('text')){
$j++;
print $seleksi->get_text(),"\n";
}
print "count document are " , $j;


i want to combine to count sentence . may be result is

document 1 = sum count sentence= 2
document 2 = sum count sentence =3
document 3 =sum count sentence =4

sorry for my bad english


(This post was edited by andrewumb on Oct 16, 2006, 11:05 PM)


Edit Log:
Post edited by andrewumb (New User) on Oct 16, 2006, 11:05 PM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives