zpracovani formulare

[Milan Sorm]

Wed, Oct 20, 1999 ve 08:03:34PM +0200 Pavel Kunc napsal:
# 1] prevzit z formulare data

use CGI;
my $query = new CGI;

# 2) rozdelit je na pary klic hodnota

my @names = $query->param;
my %Pary;
for (@names) { $Pary{$_} = $query->param($_); }

# 3)klic a hodnotu spojit do tvatu "author LIKE shakespeare"
# 4) tyto retezce "author LIKE shakespeare", "author LIKE goethe" pak spojit
# do promene ve tvaru:

$sql = join ' AND ',map { $_ . ' LIKE ' . $Pary{$_}; } sort keys %Pary;

# 
# $sql = "author LIKE shakespeare AND author LIKE goethe".
# 
# To pak chci pouzit v SQL:
# 
# SELECT * FROM $tabulka WHERE $sql

use DBI;
my $dbi = DBI->connect('dbi:Oracle:schema','login','password');
my $result = $dbi->selectall_arrayref('SELECT * FROM '.$tabulka.' WHERE '.$sql);

... pouzit $result

$dbi->disconnect;

# 
# Jak na to?
# 

asi tak jak jsem popsal (pisu z hlavy, ale melo by fungovat)

milan