Solved

search script

Posted on 2000-03-13
2
172 Views
Last Modified: 2010-03-05
in my data file = name|age|gender|description
in my search form , they can search in 3 fields : age, gender and description

can someone pls teach mi how to do a search script so tat a user only needs to search using any one(mininum) of the field ? for example..if he fills in the age form only , all the data with age similar to the form age value will be the result. And if he fills in the age and the description form, all data that meets both the age and description criteria will be the result.
thanx
0
Comment
Question by:prinx
2 Comments
 
LVL 3

Accepted Solution

by:
jyu_88 earned 400 total points
Comment Utility
something like the following should do.
The following snippet used exact match for each of the criteria. If a range shall be allowed for comparison, modify the comparison accordingly.

-----------cut--------cut------
#! /usr/bin/perl -w

my ($age, $gender, $descr, $i, $isMatched);

my (@fields, @ages, @genders, @descrs);

# matched list of line numbers.
my @matches = ();

my $datafile = "./datafile1";
open DATAFILE, "<$datafile" or die "failed to open $datafile to read: $!";

# read the datafile into 3 arrays.
while(<DATAFILE>) {
      chomp;      
      @fields = split /|/;
      push @ages, $fields[0];
      push @genders, $fields[1];
      push @descrs, $fields[2];
}
close (DATAFILE);
      

# get criteria variables assigned with values from Form feedback: $age, $gender and $descr, if necessary.
# use CGI.pm the simplest
# you know how to use CGI.pm, right?

# if none is defined, then quit here.
die "Error: You have to specify at least on searching criteria\n" } unless (defined $age or defined $gender or defined $descr)

foreach $i (0..$#ages) {
      #init with 'notMatch'
      $isMatched = 1;
      
      # if $age given, check it.
      if (defined $age) {
      if ($age == $ages[$i]) {$isMatched = 0}
      else { next }
      }
      
      # if gender given, check it.
      if (defined $gender) {
      if ($gender eq $genders[$i]) {$isMatched = 0}
      else { next }
      }

      # if descr given, check it.
      if (defined $descr) {
      if ($descr eq $descrs[$i]) {$isMatched = 0}
      else { next }
      }
      # Done checking. If the final result for line $i is good, add index $i into matched list.
      push @matches, $i if (0 == $isMatched);
}
# end of check all lines

# print out all matches.
if ( -1 == $#matches) {
      print "Sorry, none matched\n"
}
else {
      foreach $i (@matches) {
            print "matched: $ages[$i] $gender[$i] $descrs[$i]\n";
      }
}

exit 0;
-----------cut--------cut---------

      

0
 

Author Comment

by:prinx
Comment Utility
thanx ;>
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

In the distant past (last year) I hacked together a little toy that would allow a couple of Manager types to query, preview, and extract data from a number of MongoDB instances, to their tool of choice: Excel (http://dilbert.com/strips/comic/2007-08…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now