34 lines
662 B
Perl
Executable file
34 lines
662 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use C4::Database;
|
|
use strict;
|
|
|
|
my $dbh=C4Connect;
|
|
|
|
my $sth=$dbh->prepare("Select * from stopwords");
|
|
$sth->execute;
|
|
my %stop;
|
|
while (my $data=$sth->fetchrow_hashref){
|
|
$stop{$data->{'word'}}=$data->{'word'};
|
|
}
|
|
$sth->finish;
|
|
while (my $da=<STDIN>){
|
|
chomp $da;
|
|
my @temp=split('\t',$da);
|
|
if ($temp[1] =~ /t/){
|
|
my $dat=$temp[0];
|
|
# print "hey";
|
|
while ( my ($key, $value) = each %stop) {
|
|
$dat=~ s/ $value / /gi;
|
|
$dat=~ s/ $value$//gi;
|
|
$dat=~ s/^$value //gi;
|
|
}
|
|
$dat=~ s/\'//g;
|
|
print "$temp[0]\t$temp[1]\t \t \t \t$dat\n";
|
|
} else {
|
|
print $da,"\n";
|
|
# print $temp[1],"\n";
|
|
}
|
|
}
|
|
|
|
$dbh->disconnect;
|