使用Perl找出书名中的中文词语，用于搜索引擎：

1. 导入中文词库到MySQL数据库

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

   #!/usr/bin/perl # $Id$ # Add booknames to database use DBI; my $database = 'zhu_tags_filter'; my $hostname = '192.168.1.249'; my $port = '3306'; my $user = 'root'; my $password = '123456'; my $input_file = '/mnt/books/dict.txt'; $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port"; $dbh = DBI->connect($dsn, $user, $password); $sth = $dbh->codepare("set NAMES 'utf8'"); $sth->execute; $sth->finish; open(INPUT, "< $input_file")     or die "Couldn't open $input_file"; while (<INPUT>) {     $dbh->do("INSERT INTO dict(name) VALUES(?)",undef, $_); } close(INPUT); $dbh->disconnect();

2. 匹配中文词库

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

   #!/usr/bin/perl # $Id$ # Generat keywords form Chinese dict and booknams use strict; use warnings; use DBI; my $db = 'zhu_tags_filter'; my $host = '192.168.1.249'; my $user = 'root'; my $password = '123456'; my $dbh = DBI->connect("DBI:mysql:database=$db;host=$host",                        $user, $password); $dbh->do("SET NAMES 'utf8'"); my $sth = $dbh->codepare("SELECT name FROM dict"); $sth->execute(); my $n = 0; do {     while (my @row = $sth->fetchrow_array()) {         $n++;         my $keyword = $row[0];         my $hn = $dbh->codepare("SELECT id FROM all_booknames WHERE name LIKE '%$keyword%' LIMIT 1");         $hn->execute;         if ($hn->rows > 0){             $dbh->do("INSERT INTO keywords (name) VALUES('$row[0]')");         }         $hn->finish;     } } until(!$sth->more_results)