Hello, I am editing the WordNet http://wordnet.princeton.edu/ dictionary files to add my own words into it. The database file of WordNet look like normal text file and I am editing it with vim, but whenever I add a word it causes the perl "seek" function to work incorrecly.
Here are the first *TWO* lines of data.noun file with the parts that I have added on the first line, "entity2 0" 00001740 03 n 02 entity 0 entity2 0 003 ~ 00001930 n 0000 ~ 00002137 n 0000 ~ 04424418 n 0000 | that which is perceived or known or inferred to have its own distinct existence (living or nonliving) 00001930 03 n 01 physical_entity 0 007 @ 00001740 n 0000 ~ 00002452 n 0000 ~ 00002684 n 0000 ~ 00007347 n 0000 ~ 00020827 n 0000 ~ 00029677 n 0000 ~ 14580597 n 0000 | an entity that has physical existence Happen in WordNet::QueryData module at http://search.cpan.org/~jrennie/WordNet-QueryData-1.47/QueryData.pm WordNet::QueryData::getSense function , line 612 - 613 612: seek $fh, $offset, 0; 613: my $line = <$fh>; # $fh is the filehandle to data.noun #Perl debugger DB<51> x $offset 0 00001930 # Here is the part that causes the seek function get the wrong data, DB<48> x $line 0 'iving) #The $line suppose to be 00001930 03 n 01 physical_entity 0 007 @ 00001740 n 0000 ~ 00002452 n 0000 ~ 00002684 n 0000 ~ 00007347 n 0000 ~ 00020827 n 0000 ~ 00029677 n 0000 ~ 14580597 n 0000 | an entity that has physical existence With these perl code it's enough to cause such an error use WordNet::QueryData; my $wn = new WordNet::QueryData; print $wn->querySense("entity#n#1","hypo"); (getSense) Internal error: offset=00001930 pos=n at /usr/local/lib/perl5/site_perl/5.10.0/WordNet/QueryData.pm line 622, <GEN8> line 2. Is it because those files are not normal text file ? But according to them What is the format of the WordNet database? The (ASCII) database format is well-documented. See WordNet documentation index, specifically WordNet man page: wndb.5WN. I had spent more than 24 hours to solve this, but not still not clue, please guide me. Thank you very much, Regards, William Kisman Send instant messages to your online friends http://uk.messenger.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
