PerlMysqlEx01

#!/usr/bin/perl  -w

use strict;

use CGI qw(:standard);

#DBI mod�l�n� y�kle
use DBI;

#
my $sth;
my $rv;
my @row;
my $rows_affacted;

# Veritabani baglanti bilgileri
my $db = "testdb";
my $host = "localhost";
my $db_user = "testuser";
my $db_password = "sifre";

# Database handler
my $dbh = DBI->connect("dbi:mysql:$db:$host", "$db_user", "$db_password");

# Veritabani baglantisi saglanmazsa cik.
if (not $dbh){
	print "Veritabani baglanti hatasi: ", $DBI::errstr , "\n";
	exit;
}

# Statement Handler
$sth = $dbh->prepare("SELECT id, product, FROM products");

# Sorguyu calistir. 
$rv = $sth->execute();

# D�nen deger hatali ise �ik.
if (not $rv) {
	print "HATA! " , $DBI::errstr , $nl;
	exit;
}

# Getirilen satirlari yazdir.
while (@row = $sth->fetchrow_array() ) {
	print "@row\n";
}

# Veritabanında veri g�ncelleme
$rows_affacted = $dbh->do("UPDATE producst SET product='aaa' WHERE id='1' LIMIT 1");

# Veritanına veri girilmesi
$rows_affacted = $dbh->do("INSERT INTO producst('id','product') VALUES('999', 'bbb')");

# Veritabanında veri silinmesi
$rows_affacted = $dbh->do("DELETE FROM producst WHERE id='999' LIMIT 1");

# Baglantiyi kapat.
$dbh->disconnect();