Я решил писать все скрипты к проекту, которым занимаюсь сам, многое уже написал и вот дошло дело до поисковика, а так как этим ранее не занимался, то возникли некоторые траблы, начал писать примерно следующее(получасовая работка), но пока мало что есть ((
Вопрос: а в чем принцип выбора типа поиска "AND", "OR", т.е. чем иенно они отличаются? Можно словами, а не в виде участка кода, просто видел это на многих поисковиках, а сам еще толком не разобрался...

Вод код, если кому интересно:

#!/usr/bin/perl
########################
#Scripted by CheRt[aka_GoDleSS] #
#©2003 #
########################
use strict;
use CGI qw(:all);

my (@dir,@way,$to_search,$search_type,$command,$i,$j,$k,@base,@ff,@fa,@tp,$p1,$p2);

$way[0]="inetpub/wwwroot/";

$to_search=param('ts');
$search_type=param('st');

$command = $ENV{'QUERY_STRING'};

if ($command eq "") {
&begin;
} elsif ($command eq "go") {
&search;
}

sub begin {
print header;
print <<EOF;
<title>Search</title>
<form method="post" action="../cgi-bin/search.pl?go" target="_blank">
Тип поиска:
and<input type="radio" name="st" value="1" checked>&nbsp;or<input type="radio" name="st" value="2"><br>
<input type="text" name="ts" value="$to_search">&nbsp;<input type="image" src="search.gif" onclick="form.submit">
</form>
EOF

for ($i=0; $i<@base; $i++) {
print "$dir[$i] - $base[$i]<br>\n";
}
}

sub search {
for ($i=0; $i<@way; $i++) {
opendir(TS, $way[$i]);
@dir=readdir TS;
closedir(TS);

@_=@dir;
@dir=glob('*.{txt,htm,html}');
for($j=0; $j<@dir; $j++) {
open(FTS, $dir[$j]);
@ff=<FTS>;
close(FTS);

@fa=grep /$to_search/i, @ff;
$base[$j]=@fa;
}
}

&begin;
}

Выводит что вроде 0 0 0 0 0, т.е. сколько в каком файле найденно таких элемментов поиска, а не

Follow Ups:

• Гиблое дело Psychic 19:31:28 06/21/03 (4)
  • А я попытаюсЬ .вот такой упрямый, времени на такое дело не жалко CheRt[aka_GoDleSS] 12:55:43 06/23/03 (3)
    • От упрямства до идиотизма один шаг ;) Psychic 01:50:14 06/25/03 (0)
    • переведи проект на БД и используй fulltext search встроенный в СУБД Eugene 18:18:23 06/23/03 (1)
      • Мей би CheRt[aka_GoDleSS] 01:45:35 06/25/03 (0)
• Я бы не советовал. Поиск, это такая щепетильная штука, которую лучше не писать самому, а ... НиФи... 14:29:24 06/20/03 (1)
  • Re: Я бы не советовал. Поиск, это такая щепетильная штука, которую лучше не писать самому CheRt[aka_GoDleSS] 14:41:08 06/20/03 (0)