[linux] Apache + Perl + MySQL

[Peter SKALAK]

Ahoj Robo,

diky, dost mi to pomohlo a nejaky help sa k tomu neda niekde stiahnut ?
najlepsie v slovencine alebo cestine
lebo nechcel by som ta otravovat s kazdou blbostou

Dik








Cecetka.Robert na zsr.sk on 10/27/99 04:51:17 PM

Please respond to linux na rak.isternet.sk
                                                                                
                                                                                
                                                                                


                                                              
                                                              
                                                              
 To:      linux na rak.isternet.sk                               
                                                              
 cc:      (bcc: Peter SKALAK/Admin/HTC)                       
                                                              
                                                              
                                                              
 Subject: RE: [linux] Apache + Perl + MySQL                   
                                                              


Fax to:




Cauko Peter

Predpokladajme , ze mas spravne nainstalovany Apache, Perl a MySQL.
Ja bezim na RH 6.0 od SkLUG-u s Apache 1.3.6, Perl 5.005_3 a MySQL 3.21.30

Programcek:
#!/usr/bin/perl
use DBI;

$database = "meno_databazy";
$username = "uzivatel";
$password = "";
# tu sa prihlasis na server
$dbh = DBI->connect("DBI:mysql:$database", $username, $password)
        or die "Databaza neexistuje $database: $dbh->errstr\n";
# zadas prikaz SQL
$sth = $dbh->prepare("select * from zakaz WHERE meno=\"Robert\" ")
        or die "Nieco nieje v poriadku I.  !";
# vykonas SQL
$sth->execute;
# nacitas vysledok do pola @row
@row = $sth->fetchrow();

# test ci SQL prikaz presiel OK
if ( $row[0] eq '')
{
print "Datab
------------- další část ---------------

áza neobsahuje Vami požadovaný záznam<br><br>","\n";
}
else
{
# predpokladajme , ze tvoja databaza obsahuje meno, priezvisko a rod.cislo
$meno = $row[0];
$priezvisko = $row[1];
$rod_cislo = $row[2];
}
# uvolnenie prikazu resp. pola. NUTNE a BEZPECNE
$sth->finish;
# odpojis sa od databazy  NUTNE a BEZPECNE
$dbh->disconnect;

Robert

> -----Původní zpráva-----
> Od:     Peter SKALAK [SMTP:pskalak na htc.sk]
> Odesláno:    27. október 1999 14:32
> Komu:   linux na rak.isternet.sk
> Předmět:     [linux] Apache + Perl + MySQL
>
> Vie niekdo poradit ako napisat script v perl
> na mysql ?
>
> Na stranka p. Koseka su iba priklady php, ale ako
> napisat to iste v perle som sa nikde nedocital.
> Na priklade sa najlepsie uci.
>
> Ak viete niekdo poradit nejaku stranku bol by som rad.
>
> Peter
>