Lucene LUCENE LUCENE Arama Motorunun C Limanı'na perl API'dir.
Şimdi İndirin

Lucene Sıralama ve Özet

Lucene Etiketler

arama motoru Perl modülü Liman Lucene Lucene C bağlantı noktası

Lucene Açıklama

Lucene Lucene arama motoru C portuna bir Perl API'sıdır. Lucene Lucene C noktasına bir Perl API / engine.SYNOPSISInitialize arama Lucene indeksi benim $ analizörü boşaltın olduğunu = new Lucene :: Analizi :: Standart :: StandardAnalyzer (); Benim $ store = Lucene :: Mağaza :: FSDirectory-> getDirectory ( "/ home / lucene", 1); Benim $ tmp_writer = yeni Lucene :: İçindekiler :: IndexWriter ($ mağaza, $ analizörü, 1); tmp_writer-> yakın, $; $ Tmp_writer undef; senin Analyzer (dize tokenizer) # büyük harf metin ve harf olmayan karakterler benim $ analizörü = new Lucene :: Analiz :: SimpleAnalyzer () at böler bunu seçin; # Stop sözcükleri benim $ analizörü = new Lucene :: Analiz :: StopAnalyzer () öncesinde ve kaldırır aynı; # Eğer benim $ analizörü kendi durdurma kelimeleri sağlar, ancak eskisi gibi = new Lucene :: Analiz :: StopAnalyzer (); Boşluk karakterlerinden benim $ analizörü = new Lucene :: Analiz :: WhitespaceAnalyzer () kapsamında # böler metin; # Büyük harf metin, bir gramer dayalı dizgecikli o # yaprakları adında yetkililer bozulmamış (e-postalar, şirket adları, # web sunucu isimleri, IP adresleri, vs) ve kaldırılan durdurma kelimeler benim $ analizörü = new Lucene :: Analiz :: Standart: : StandardAnalyzer (); # Eğer benim $ analizörü kendi durdurma kelimeleri sağlar, ancak eskisi gibi = new Lucene :: Analizi :: Standart :: StandardAnalyzer (); Olduğu gibi # dize alır (yalnızca clucene-0.9.17 veya üzeri kullanarak) benim $ analizörü = new Lucene :: Analiz :: KeywordAnalyzer (); özel Analiz paketi MyAnalyzer oluşturun; Kullanım baz 'Lucene :: Analiz :: Analiz'; # Sen SÜPER denilen GEREKİR :: yeni yeni () alt yeni {benim $ class = shift uygulamak durumunda; Benim $ öz = $ sınıf-> SÜPER ::) (yeni; # ... dönüş $ öz; } Alt tokenStream {my ($ öz $, tarla, $ okuyucu) = @_; Benim $ ret = new Lucene :: Analiz :: StandardTokenizer ($ okuyucu); if ($ alan eq "MyKeywordField") {$ ret return; } $ Ret = Yeni Lucene :: Analiz :: LowerCaseFilter ($ ret); $ Ret = Yeni Lucene :: Analiz :: StopFilter ($ ret ); $ Ret return; } Paket ana; Benim $ analizörü yeni MyAnalyzer =; sizin Mağaza (depolama motoru) # seç bellek depolama benim $ mağaza = new Lucene :: Mağaza :: RAMDirectory (); # Disk tabanlı depolama benim $ store = Lucene :: Mağaza :: FSDirectory-> getDirectory ( "/ home / lucene", 0); Açık ve IndexWriter benim $ yazar yapılandırmak = new Lucene :: İçindekiler :: IndexWriter ($ mağaza $, analiz, 0); güç kullanıcıları $ writer-> setMergeFactor arasında isteğe bağlı ayarlar (100); $ Writer-> setUseCompoundFile (0); $ Writer-> setMaxFieldLength (255); $ Writer-> setMinMergeDocs (10); $ Writer-> setMaxMergeDocs (100); Belgeler oluşturun ve Fields benim $ doc = new Lucene :: Dokümanı ekleyin; # Alan analiz endeksli ve $ onaylanması zorunludur> eklenti (Lucene :: Belge :: FIELD-> Metin ( "içerik", $ içerik)) depolanır; # Alan endeksli ve $ onaylanması zorunludur> eklenti depolanır (Lucene :: Belge :: FIELD-> Anahtar () $ isbn, "isbn"); # Alan sadece depolanır $ onaylanması zorunludur> add (Lucene :: Belge :: FIELD-> Sıralanmayan ( "sales_rank", $ sales_rank)); # Alan analiz ve alır endeksli $ onaylanması zorunludur> (Lucene :: Belge :: FIELD-> saklanmamış ( "kategoriler", $ kategoriler)) ekleyin; Gereksinimler: · Perl

Lucene İlgili Yazılım