Perl.PerlMysqlEx01 History
Hide minor edits - Show changes to markup
September 12, 2005, at 12:36 PM
by 192.168.1.77
Changed lines 1-2 from:
Perl ile MySQL? veritabanı bağlantısının; kurulması ve bazı temel sorguların �alışıtırılması:
to:
Perl ile MySQL? veritabanı bağlantısının kurulması ve bazı temel sorguların �alışıtırılması:
September 12, 2005, at 12:35 PM
by 192.168.1.77
Changed lines 1-2 from:
Perl ile MySQL? veritabanı bağlantısı kurulması ve bazı temem sorguların �alışıtırması:
to:
Perl ile MySQL? veritabanı bağlantısının; kurulması ve bazı temel sorguların �alışıtırılması:
September 12, 2005, at 12:34 PM
by 192.168.1.77
Deleted line 7:
September 12, 2005, at 12:34 PM
by 192.168.1.77
Added lines 1-64:
Perl ile MySQL? veritabanı bağlantısı kurulması ve bazı temem sorguların �alışıtırması:
(:code lang=perl:)
#!/usr/bin/perl -w
use strict;
use Mail::CheckUser qw(check_email last_check);
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();
