Thesaurus::DBI - Store and query synonyms (Thesaurus) in an SQL database.
use Thesaurus::DBI; # create new database connection my $th = new Thesaurus::DBI(dbhost=> 'localhost', dbname=>'thesaurus',dbuser=>'user',dbpassword=>'pass'); # use existing database connection my $th = new Thesaurus::DBI(dbhandle => $dbi, dbname=>'thesaurus',dbuser=>'user',dbpassword=>'pass'); # initialize database $th->create_tables(); # query thesaurus my @synonyms = $th->find('synonym'); # add synonyms $th->add(['word', 'synonym']); # delete word $th->delete('word');
This subclass of
Thesaurus implements persistence by using an SQL database.
This module requires the
DBI module from CPAN. To use it with certain database servers, the corresponding database drivers are needed, too. (Mysql -> DBD::mysql)
Please note, that database servers like MySQL doesn't take care of case-sensitivity. So the queries to the thesaurus-database wil all bei case-insensitive.
new method takes the following parameters, in addition to those accepted by its parent class:
Host of the database server. Default value: localhost
Name of the database to connect to.
Username for the database connection
Password for the database connection
If you already have an existing connection to the database where the thesaurus tables are found in (word, assignment), you can pass it in by using this parameter.
Method to initialize the database to store synonyms in. Creates two new database tables to store all words and the corresponding assignments.
Thesaurus, DBI, DBD::mysql
Listed below are some links for synonym databases, that can be used with this module
Jo Seibert, jseibert (at) seibert-media (dot) net
Copyright (C) 2006 by Jo Seibert
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.