CGI站点搜索_Perl 编程_新闻_云联天下-智慧云谷-智慧家居-物联网-智能家居,智能家居系统,智能家居加盟解决方案-智慧云谷云计算有限公司-智慧家居接口|传感器接口|智能开关接口|工业控制接口

首页→技术资料→Perl 编程→CGI站点搜索

【字号：大中小】【背景色

】

CGI站点搜索

网址来源:http://www.kehui.net发布时间: 2002-01-21 18:12:12

----大家好，这是我的第一篇文章，希望能给你带来帮助。

----随着个人网页内容的增多，有时连自己都搞不清自己网站到底已经有什么，来访者面对丰富的内容很可能既高兴又有些无奈，我感兴趣的内容到底在那里呢？有的网站提供了很棒的层式链接网，一个主题分成几个小主题，希望能帮助来访者更快的查找到想要的信息，但是，有时某部分可以属于多个主题，有时你的分类方法和来访者理解的分类方法不一致，造成不能找到本来存在的东西。为解决这个问题，需要一个站点搜索程序来完成这个工作。

----我采用的是perl写的CGI程序完成站点搜索。有2种搜索方法： ----1：完全搜索。在整个站点的所有文件中扫描查找。优点：不会遗漏有用的内容，结果全面；缺点：执行时间长，特别是内容特别多时，结果缺少针对性，扫描程序必须和被扫描文件在同一个网站。 ----2：关键词搜索。对每个文件建立关键词索引，找出文件中能表达此文件意义的关键词，然后把所有文件的关键词放在一起，保存为索引文件。扫描时打开索引文件，在其中查找。优点：速度快，扫描程序和被扫描文件可以在不同网站；缺点：如果关键词选取不全面，很可能遗漏有用的内容。 ----本站根据自己的实际情况，采用第2种方法。方法如下： ----1：申请一个支持CGI的空间，我用的是淄博热线的空间来执行CGI程序（http://www.533.net)

----2：制作search.pl，我改写的是sambar的搜索程序。 #!/usr/bin/perl # # Perl-based Search Engine # # Copyright 1998 Tod Sambar # All rights reserved. #

my $docroot = $ENV{’DOCUMENT_ROOT’}; my $docrootlen = length($docroot);

# # PARSE THE CGI FORM #

# Buffer the POST content read(STDIN， $buffer， $ENV{’CONTENT_LENGTH’});

# Process the name=value argument pairs my $pair; my $name; my $value; my @args = split(/&/， $buffer);

foreach $pair (@args) {

($name， $value) = split(/=/， $pair);

# Unescape the argument value $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C"， hex($1))/eg;

# Save the name=value pair for use below. $FORM{$name} = $value; }

# # BUILD THE FILE SEARCH LIST # # NOTE: We only search *.htm， *.html and *.txt files # # WARNING: This search engine is a serious memory hog # for large sites with many files.

open (FILE，"index.txt"); @LIST = <FILE>; close(FILE);

# # SEARCH THE FILES # my $file; my $data; my $match; my $found; my $query = $FORM{’query’}; print "Content-type: text/html

kehui

备案证号：37020020091219

钯碳回收硝酸银回收银浆回收银焊条回收回收银浆氯化钯回收氯化钯回收氧化钯回收回收硝酸钯钯水回收价格海绵钯回收钯炭回收价格回收镀金板深圳钯碳回收镇江氯化钯回收杭州钯浆回收银浆回收多少钱回收钯碳公司硝酸银的价格那里有回收金氯化钯回收价格江苏擦银布回收硝酸银价格德州钯粉回收银铜回收回收钯粉回收铂碳催化剂佛山钯碳回收金盐回收价格海绵钯回收钯碳高价回收钯回收价格钯炭回收