in reply to Re^2: Understanding someone else's parser
in thread Understanding someone else's parser
The first line is what POPfile considers a "word", after dealing with some other special cases first. I want to tinker with this program a bit. So, there is nothing funky about it. Just someone else's code to read and understand.while ( $line =~ s/([[:alpha:]][[:alpha:]\']{0,44})[_\-,\.\"\' +\)\?!:;\/&]{0,5}([ \t\n\r]|$)/ / ) { update_word($self,$1, $encoded, '', '[_\-,\.\"\'\)\?!:;\/ +&\t\n\r]') if (length $1 >= 3);
—John
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^b100: Understanding someone else's parser
by diotalevi (Canon) on Jan 03, 2003 at 00:07 UTC |