In the past I've written a simple search engine and have been using it
for awhile, but now I'm trying to make it a little more intuitive.

Originally, the script was simple. Take a keyword entered by a form,
compare it to each value of an array (@data), and return any value
containing the entry:

$var = param('keyword');
foreach $key (@data) {
if ($key =~ /$var/i) { push (@founddata, $key); }
}

But now I'm trying to allow for multi-word phrases, which is a bit more
complex. I couldn't find how others are doing it, so I'm winging it on
my own. I started by splitting $var by the whitespace into an array,
counting the number of instances that $var appeared in the $key, then
adding the results to a hash value:

my (%%founddata, @keywords);
my $var = param('keyword');

$var =~ s/(?:,|'|\.)//g; # Remove comma, apostrophe, or period
@keywords = split(/ /, $var);

gantry looksed bombastic

Quoth "madan" gmail.com>:


Please stop changing your From: address.

Ben

It says how perl is not limited to being a c clone.
And I am wondering if perl is a good way for me to get into programming
or should I go straight to something supposedly powerful like lisp?
smalltalk or haskell?

maypole by simon

Quoth Bo Lindbergh :

In article <2flip3-m8d.ln1@osiris.mauzo.dyndns.org>,
Ben Morrow tiscali.co.uk> wrote:

So you claim that it's a documentation error: the "some UNIX systems
copy all the current threads into the child process" part should be
removed from perlthrtut?

/Bo Lindbergh

In article <44c2d8d9$0$22362$afc38c87@news.optusnet.com.au>,
"Sisyphus" nomail.afraid.org> wrote:

Oh, sorry, it's the Callback module (from CPAN) - a means of doing
Tk-like callbacks but in normal Perl code.

This is an excerpt from the latest version perlfaq4.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete
perlfaq is at http://faq.perl.org .

--------------------------------------------------------------------

4.15: How can I take a string and turn it into epoch seconds?

If it's a regular enough string that it always has the same format, you
can split it up and pass the parts to "timelocal" in the standard
"Time::Local" module. Otherwise, you should look into the "Date::Calc"
and "Date::Manip" modules from CPAN.

--------------------------------------------------------------------

The perlfaq-workers, a group of volunteers, maintain the perlfaq. They
are not necessarily experts in every domain where Perl might show up,
so please include as much information as possible and relevant in any
corrections. The perlfaq-workers also don't have access to every
operating system or platform, so please include relevant details for
corrections to examples that do not work on particular platforms.
Working code is greatly appreciated.

I hear people bitch about perl but others say its most productive
language.