#!/usr/bin/perl 
 
$SQL = "select * from members where 1 "; 
@checks = ( member_id, last_name, dob, username ); 
 
$member_id = 123; 
$last_name = ""; 
$dob       = "bouh!"; 
$username  = "freddo"; 
 
for (@checks) { 
  $params .= "and $_ = '$$_' " if ($$_ ne ""); 
} 
 
$SQL .= ( $params ? $params.";" : "and 0;" ); 
print $SQL;

01|#!/usr/bin/perl 
02|$SQL = "select * from members where 1 "; 
03|@checks = ( member_id, last_name, dob, username ); 
04|$member_id = 123; 
05|$last_name = ""; 
06|$dob       = "bouh!"; 
07|$username  = "freddo"; 
08|for (@checks) {   
09|  $params .= "and $_ = '$$_' " if ($$_ ne ""); 
10|} 
11|$SQL .= ( $params ? $params.";" : "and 0;" ); 
12|print $SQL;

$SQL = "select * from members where 1 "; 
@checks = ( member_id, last_name, dob, username ); 
for (@checks) {   
  $params .= "and $_ = '".param($_)."' " if (param($_) ne ""); 
} 
$SQL .= ( $params ? $params.";" : "and 0;" ); 
print $SQL;

administrator@COKE /cygdrive/h/scripts.pl/perlguru/manunkind 
$ perl -MO=Deparse,-q,-sCT manunkind.pl 
$SQL = 'select * from members where 1 '; 
@checks = ('member_id', 'last_name', 'dob', 'username'); 
$member_id = 123; 
$last_name = ''; 
$dob = 'bouh!'; 
$username = 'freddo'; 
foreach $_ (@checks) { 
    $params .= 'and ' . $_ . q[ = '] . $$_ . q[' ] if $$_ ne ''; 
} 
$SQL .= $params ? $params . ';' : 'and 0;'; 
print $SQL; 
manunkind.pl syntax OK

#!/usr/bin/perl 
use CGI; 
use DBI; 
 
# next come an array of hashes, the order have its importance for the display 
# the hashes value are the following: 
# field:  the name of the field used in both the form, and in you db 
# name:   the english name for that field 
# check:  the type of check you wish for that field, empty means no check 
# show:   show the field in the result table ( 1/0 = yes/no ) 
@db_infos = ( 
  { field => "member_id",	name => "Member ID",	check => '=',	show => 0 }, 
  { field => "first_name",	name => "First Name",	check => '',	show => 1 }, 
  { field => "last_name",	name => "Last Name",	check => '=',	show => 1 }, 
  { field => "title",	name => "Title",	check => '',	show => 0 }, 
  { field => "email",	name => "Email Address",	check => '',	show => 0 }, 
  { field => "dob",	name => "Date of Birth",	check => '=',	show => 0 }, 
  { field => "username",	name => "Username",	check => '=',	show => 1 }, 
  { field => "password",	name => "Password",	check => '',	show => 0 }, 
  { field => "business_name",	name => "Business Name",	check => '=',	show => 0 }, 
  { field => "mailing_street",	name => "Mailing Street",	check => '',	show => 1 }, 
  { field => "mailing_city",	name => "Mailing City",	check => '=',	show => 1 }, 
  { field => "mailing_state",	name => "Mailing State",	check => '=',	show => 1 }, 
  { field => "mailing_zip",	name => "Mailing Zip",	check => '=',	show => 1 }, 
  { field => "physical_street",	name => "Physical Street",	check => '',	show => 0 }, 
  { field => "physical_city",	name => "Physical City",	check => '=',	show => 0 }, 
  { field => "physical_state",	name => "Physical State",	check => '=',	show => 0 }, 
  { field => "physical_zip",	name => "Physical Zip",	check => '=',	show => 0 }, 
  { field => "phone",	name => "Phone Number",	check => '',	show => 0 }, 
  { field => "fax",	name => "Fax Number",	check => '',	show => 0 }, 
  { field => "url",	name => "URL",	check => '',	show => 0 }, 
  { field => "employees",	name => "Employees",	check => '',	show => 0 }, 
  { field => "business_type",	name => "Business Type",	check => '=',	show => 0 }, 
  { field => "description",	name => "Business Description",	check => '=',	show => 0 }, 
  { field => "membership_type",	name => "Membership Type",	check => '=',	show => 0 }, 
  { field => "dues",	name => "Dues",	check => '',	show => 0 }, 
  { field => "member_since",	name => "Member Since",	check => '=',	show => 0 }, 
  { field => "duration",	name => "Duration",	check => '=',	show => 0 }, 
  { field => "expiration",	name => "Expiration Date",	check => '=',	show => 0 }, 
  { field => "chapter",	name => "Chapter",	check => '=',	show => 0 }, 
  { field => "chapter_leader",	name => "Chapter Leader",	check => '=',	show => 0 }, 
  { field => "listed_directory",	name => "Listed in Directory?",	check => '=',	show => 0 }, 
  { field => "enhanced",	name => "Enhanced Listing?",	check => '=',	show => 0 }, 
  { field => "committees",	name => "Committees",	check => '=',	show => 0 }, 
  { field => "paid",	name => "Paid?",	check => '=',	show => 0}  
); 
 
# Creating the SQL statements: 
for (@db_infos) { 
  $check = $query->param($_->{field}); 
  push (@params, " ", $_->{field}, " ", $_->{check}, " '$check' ") 
    if ( ($_->{check}) && ($check ne "") ); 
} 
$SQL = "select * from members\n where ".join(" and ", @params); 
 
# Fetching the results from mysql 
$dbh = DBI->connect("DBI:mysql:members", "<username>", "<password>") 
  or die "Can not connect to the database"; 
$sth = $dbh->prepare($SQL); 
$sth->execute; 
$dbh->disconnect(); # i dont think fetchrow_hashref() needs a connection 
 
# print the http headers, top of page, and the table results 
print <<HTML; 
Content-type: text/html 
 
<html><head><title>Testing</title></head> 
<body><center><b>Your search has produced the following results:</b></center> 
<p> 
<table cellspacing="3" width="4500"> 
HTML 
 
# Print the headers on a row 
print "<tr>"; 
print "<td><b>", $_->{name}, "</b></td>" for (@db_infos); 
print "</tr>"; 
 
# Print found records, only the fields that we specified "show-able" 
while($ref = $sth->fetchrow_hashref()){ 
  print "<tr>";  # new row 
  print ($_->{show}?"<td>". $ref{$_->{field}} ."</td>":"") for (@db_infos); 
  print "</tr>"; # next row 
} 
 
# End of table, and page 
print "</table></body></html>"; 
 
# This is the 
__END__ 
my only friend, the 
__END__

$ perl -MTime::Local -e 'print timegm(40, 46, 1, 9, 9 - 1, 2001 - 1900);' 
1000000000