کانکشن به دیتابیس

[satan_perl]

من تازه پرل رو شروع کردم و زیاد به این زبون آشنایی ندارم. کسی می تونه به من در مورد چگونگی نحوه ی وصل شده به یک دیتابیس کمک کنه.اگه یه مثال ساده چند خطی هم بزنه که خیلی خوب می شه.

[satan_perl]

یعنی هیچ کس نیست جواب منو بده .. دیگه این سوال این قدر ها هم نباید سخت باشه...

[Ariyan]

میتونی برای اتصال به MySQL از طریق ماژول DBI یه همچین کاری بکنی:

#!/usr/bin/perl -w
use DBI;
$user= "root";
$password= "password";
$host= "localhost";
$dbname="databasename";
$dbh= DBI->connect("dbi:mysql:database=$dbname;host=$host",$user,$password) or die $DBI::errstr;
$sth= $dbh->prepare("SELECT * FROM tablename") or die $DBI::errstr;
$sth->execute();
$numRows = $sth->rows;
print "Rows returned: $numRows\n";
while ( @row = $sth->fetchrow_array ){
print "@row\n";
}
$dbh->disconnect or die $DBI::errstr;
http://search.cpan.org/~timb/DBI-1.58/DBI.pm (http://search.cpan.org/%7Etimb/DBI-1.58/DBI.pm)

[hamed_m]

use Mysql;
$host = "localhost";
$user = "user";
$password = "pass";
$database = "db";
$db = Mysql->connect($host, $database, $user, $password);
$db->selectdb($database);
$querystring = "SELECT * FROM dbclients WHERE id='$id'";
$query = $db->query($querystring);
while (%hash = $query->fetchhash) {
$name=$hash{'name'};
print $name;
}


http://search.cpan.org/~capttofu/DBD-mysql-4.005/lib/DBD/mysql.pm

[montaseri]

با تشکر از هامد...اضافه کنم که
یکی از ویژه گیهای زبان پرل در رابطه با عملیات دیتا بیسی وجود لایه پنهان سازی DBI میباشد. این پنهان سازی از طریق ۲ لایه انجام میشود که از دید شی گرایی لایه DBI یک لایه مجازی است که عملیات خود را از طریق لایه دوم یا DBI::DBD که بر حسب انتخاب دیتا بیس است انتخاب میشود حل میکند. حاصل این پنهان سازی این است که کد شما از انتقال از یک دیتا بیس به دیتا بیس دیگر محفوظ است و احتیاج به پورت کد ندارید

با تشکر
مهدی م