A simple search engine written in perl !
#!/bin/sh
echo "Content-type: text/html"
echo
echo '<html> <head> <title> Results </title> </head> <body>'
argument=`echo "$QUERY_STRING" | sed "s|q=||"`
cd /<your web server root directory>
echo '<pre>'
grep -i "$argument" *html */*html | sed -e 's|<|\<|g' -e 's|>|\>|g'
echo '</pre>'
Now all you do is run this under your web server root directory with appropriate permissions.
viola ! with the power of the shell and perl you could do magic.
Like this:
Be the first to like this post.
0 Responses to “Search engine in a few lines”