I
iyiyiz
Misafir
Cgi script hic kurmadim ,php script gibi mi oluyor bu scriptlerin kurulumu?Ftp serverde ekstra yapilacak bir sey varmi?Mysql acilacak baska aynen setup mi yapiliyor.
#!/usr/bin/perl
use DBI; # dbi modülünü kullan
$baglanti = DBI->Connect("dbi:mysql:veritabani","kullanici","sifre") or hata ("Veritabanına ulaşamadım ne halt edecez şimdi! Belki hatayı görsek bir şey ederiz:", $baglanti->errstr); # DBI ile mysqle bağlanıyoruz
print "Content-type: text/html\n\n";
$sorgu = $baglanti->prepare(qq(SELECT ad, soyad FROM tablo ORDER BY ad, soyad)) or hata("Tablodan okunamadı: ", $baglanti->errmsg); #sorguyu göndermek için hazırlıyoruz
$sorgu->execute; #sorguyu çalıştırıyoruz
$i = 0;
while (($ad,$soyad) = $sorgu->fetchrow) {
print $i.". ".$ad." ".$soyad."\n";
$i++;
}
# verileri fetchrow nesnesini yardımıyla çektik
$baglanti->disconnect; #baglantıyı kestik
sub hata {
my($msg) = @_;
print "<b>Hata: </b>\n";
print $msg;
exit;
}