Aktív témák
-
benczeb
aktív tag
Sziasztok!
Perlből házit kell írnunk (CGI), a lényeg, hogy egy mysql adatbázishoz csatlakozunk a DBI modulon keresztül, és nem tudunk megírni egy lekérdezést. Nem étrjük, hogy hogy adja vissza, illetve milyen függvénnyel.
Így próbálkozunk:
#!/usr/bin/perl
print ''Content-type: text/html '';
use strict;
use DBI;
my $q = $ENV{'QUERY_STRING'};
my @param = split (/&/, $q);
my %c = ();
my $p;
my %hash=();
foreach $p (@param) {
my ($n, $v) = split (/=/, $p);
$v =~ tr/+/ /;
$v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(''C'', hex($1))/eg;
$c{$n} = $v;
# print $n, '':'', $c{$n}, '' <BR>'';
$hash{$n}=$c{$n};
}
my $database = ''A'';
my $hostname = ''localhost'';
my $user = ''A'';
my $password = 'A';
my $dsn = ''DBI:mysql:database=$database;host=$hostname;mysql_socket=/var/run/mysqld/mysqld.sock'';
my $dbh = DBI->connect($dsn, $user, $password, { PrintError=>0 }) || die $DBI::errstr;
########## ÉS EZ NEM MŰKÖDIK!!!! ##############
# lekérdezés az adatbázisból
if ($hash{'mit_csinal'}==''lekerdez'') {
# my $sql_text = ''SELECT * FROM tabla_1 WHERE nev=($hash{'nev'})'';
my $sql_text = ''SELECT * FROM tabla_1'';
my $sql = $dbh->prepare($sql_text);
$sql->execute();
#print $sql->rows, '' '';
:((########### ITT MILYEN FÜGGVÉNYT, HOGYAN???????? #########xx
$dbh->do($sql_text) || die $DBI::errstr;
$sql->finish();
}
$dbh->disconnect();
Aktív témák
- Milyen routert?
- Samsung Galaxy S21 Ultra - vákuumcsomagolás
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Készül a Galaxy S24 FE
- Google Pixel 6/7/8 topik
- Amazon Fire TV stick/box
- Azonnali informatikai kérdések órája
- 20 ezer új munkást visz Eindhovenbe az ASML
- Videó stream letöltése
- Ukrajnai háború
- További aktív témák...
- XBOX ONE/PS4/PS5/XBOX SERIES/NINTENDO SWITCH konzolt vásárolnék!
- XBOX SERIES/PS4/PS5/XBOX ONE/NINTENDO SWITCH konzolt vásárolnék!
- PS5/PS4/XBOX ONE/XBOX SERIES/NINTENDO SWITCH konzolt vásárolnék!
- Új Dobozos Lenovo Ideapad Flex 5 x360 Érintős Ultrabook Óriás Tab 16" -40% Ryzen 5 5500U 16/512 QHD
- PS4/PS5/XBOX ONE/XBOX SERIES/NINTENDO SWITCH konzolt vásárolnék!