Perl SQLite 字典

Question

我們如何使用 perl 腳本將字典插入 SQLite 數據庫？

我為 unix 平台找到了這個

http://developeronline.blogspot.in/2008_04_01_archive.html

但它在 Windows 上不起作用。 我的機器上安裝了草莓 perl 和 SQLite。 有人可以幫助我如何使用 perl 創建字典嗎？

Answer 1

在說“我找到了這個”時，最好指向您要向我們展示的特定帖子，而不是包含許多帖子的頁面。 我認為您正在談論的實際帖子是這個。

這是可怕的代碼； 由顯然對 Perl 知之甚少的人編寫。

你說它是為 Unix 編寫的。 鑒於它是一篇 Microsoft 文章並且cls的使用證實它是針對 Windows 環境的，這似乎不太可能。 但是（正如 CL 在上面的評論中指出的那樣）安裝了wget程序的那些。

將代碼重寫為近似於真實 Perl 的代碼，結果如下：

use strict;
use warnings;

use LWP::Simple;

my $message = "\nPlease enter a word to look for:\n>";

print $message;

while (<>) {
  chomp;
  if ($_ eq "<") {
    system("cls");
    print $message;
  } else {
    print "Connecting..";
    my $url = "http://wordnetweb.princeton.edu/perl/webwn?s=$_";
    my $page = get $url;

    if ($page =~ /<\s*b>$word<\/b>[^\(]+\(([^\)]*)\)/) {
      print "\n#def#$1";
    }
  }
}

我已經改用LWP::Simple模塊而不是wget因為為此使用外部模塊似乎很愚蠢。 我還不得不更改 URL，因為自文章撰寫以來的七年中地址已經更改。

此版本有效，但仍需大量清理。 特別是，從這樣的網站上抓取信息是很脆弱的（並且經常違反您正在抓取的網站的條款和條件）。 尋找一個可以為您提供相同信息的 API 會是一個更好的主意。

更新：如果要將字典加載到數據庫中，最好的方法是下載源文件並解析它們。