Perl Search Engine

Can some one write a perl search engine for me. I need it for Unix. It needs to be fully customizable, and easy to use. I will provide addition info as it is need. I will change points availbel if it is harder than i think.
steath_acidAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

jhurstCommented:
M company has one available but we do charge for it.  If you are interested in licensing it feel free to send me eMail to: custom@resource.nu
0
cadabraCommented:
Take a look at:

http://hotwired.lycos.com/webmonkey/97/16/index2a.html?tw=programming

which gives code for a basic search engine, working on unix with CGI.

Also, If you need a search engine (free) there are ready made engines you can install on your LAN so long you don't have too many files (less than 3000 if I recall).

Is this an option ? Or must it be an engine developed in PERL ?


0
eaeCommented:
0
Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

steath_acidAuthor Commented:
cgi-resources does not have anything that will work for me. I want a custom script. Is it worth more than this?
0
cadabraCommented:
Please post your requirements from the search engine scripts, and define what you mean by fully customizable.

0
steath_acidAuthor Commented:
OK it must be able search a specific director, must we perl, must allow customizable results pages. The easier the better.
0
jhurstCommented:
I think you need to understand that people who post answers here tend to do it as a way of sharing with the community.  Not for the points.  Realistically, the points have little or no value.  As such, it may not be possible to find someone to do real work just for points.  

I can tell you that we have done a lot of work for money, for people who have found us here.  (End of self serving plug).
0
steath_acidAuthor Commented:
Well if it comes to that I will pay for it to be done, but not unless it is absolutly required.
0
jhurstCommented:
If you get to that point eMail me at: custom@resource.nu - I would be happy to provide references.
0
furuCommented:
use CGI qw(:standard);

my($searchdir) = "yourdir/yoursubdir";

# for top/bottom files....
my($htmldir) = "yourdir/htmlpages";

my($word) = param('keyword');

opendir DIR, $searchdir;
my(@files) = readdir DIR;

foreach my $file (@files) {
 next if $file =~ m!^\.{1,2}!;
 next if -d "$searchdir/$file";
 
 open (FILE, "$searchdir/$file");
 my(@lines) = <FILE>;
 close FILE;
 
 foreach my $line (@lines) {
# remove last i for case sensitive search.
  if ($line =~ m!$word!i) {
   push (@matches, $file);
  }
 }
}

# Matching files are now stored in @matches

my($number_of_matches) = @matches;
my($matchno); #counter

foreach my $match (@matches) {
 $matchno++;
# Modify after the next line to customize each match-line.
 push (@output_lines, <<__END_HTML__);
$matchno. <A HREF="$match">$match</A><BR>
<BR>
__END_HTML__

}


# Looks for top.html and bottom.html. Modify these to change the output.
open (FILE, "$htmldir/top.html");
print <FILE>;
close FILE;

print @output_lines;

open (FILE, "$htmldir/bottom.html");
print <FILE>;
close FILE;

# That's how much you'll get for free :-)
# Y.s.
# furu
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
steath_acidAuthor Commented:
Ok, so first of all what did you leave out. I will try it asap. But i need to know what you mean by: "That's how much you'll get for free".
0
furuCommented:
Nothing, the engine should work just like it is now. See the comments for instructions.

Y.s.
0
steath_acidAuthor Commented:
Well I have not had enough time and have decided to use a less, very much less effective solution. But I thank you for your opionion. In turn I will go ahead and reward you your points(they were free anyway). I Thank Everyone for your input.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Perl

From novice to tech pro — start learning today.