Warning: Illegal offset type in
/home/free2code/vhosts/free2code.net/httpdocs/jtdb/drivers/mysql/mysql.php on line
305
Time: 2008-11-21, 01:00am
Please
login or
register to post a reply.
|
|
| Subject: Stopwoed Removal · Posted: 2005-02-18, 05:36am |
|
|
|
Rank: Unregistered
|
Hey, i'm new to the ol perl programming, but anyway. I'm trying to write code for stopword removal. i have this, but its not quite right.
Code:
open (IN,"<stopwords.txt");
- open (IN2,"<DOC001.txt");
- @words = <IN>;
- close (IN)
- @doc = <IN2>;
- close (IN2);
-
-
-
- foreach $stopword (@words){
- chomp ($stopword);
- $h {$stopword}= 1;
- }
-
- while (<IN>
 {
- $stopword = $_;
- chomp ($stopword);
-
-
- print $word . "\n";
- }
- }
-
- if (@doc =~/^(@words)$/){
- $stopword =~ s/@words/@doc/g;
-
- }
i have to do Stemming as well, but i have no clue as to haw to do that. so if you have any hints there it would be much appreciated.
|
|
|
| Subject: Re: Stopwoed Removal · Posted: 2005-02-24, 03:07am |
|
|
|
Rank: Unregistered
|
anyone. Please 
|
Pages: 1
Please
login or
register to post a reply.
