چگونه از MySql در Perl استفاده کنیم ؟ (100 درصد و کامل)

[saeedvir]

برای اینکه از MySql بتونید استفاده کنید باید کارای زیر رو به ترتیب انجام بدید :

1) نصب ActiveState Perl از آدرس زیر اگه روی سیستم ندارید:


http://www.activestate.com/activeperl/downloads


2) اPerl Package Manager را اجرا کنید.

نکته می تونید کد زیر را در Run بنویسید و اجرا کنید :


C:\Perl\bin\wperl.exe -x "C:\Perl\bin\ppm.bat"


3) CTRL + P را بزنید یا روی آیکن چرخ دنده کلیک کنید .

4) در پنجره باز شده ، در قسمت Name یک اسم دلخواه وارد کنید. و در قسمت Location یکی از آدرس های زیر را وارد کنید.



http://ppm4.activestate.com/MSWin32-x86/5.8/819/


http://theoryx5.uwinnipeg.ca/ppms/package.lst

http://bioperl.org/DIST

http://www.roth.net/perl/packages/

http://www.bribes.org/perl/ppm/


حالا روی Add کلیک کنید.

منتظر به روز رسانی باشید.

5) پس از به روز رسانی در قسمت Search عبارت زیر را وارد کرده و enter را بزنید.

DB

6) حالا به ترتیب هر یک از عبارات زیر را در موارد پیدا شده را باید در صورت لزوم به روز رسانی کنید و اگر نصب نیست آنرا نصب کنید.


DBI

DBD-Mysql

7) روی هر یک راست کلیک کنید

8) حالا گزینه Install رو انتخاب کنید.

9) حالا cmd رو باز کرده و یکی از این دستورات را وارد کنید. :

برای ارتقا نسخه :


ppm upgrade package_name


برای نصب (اگه قبلا نصب نشده باشد) :


ppm install package_name


خب حالا یکم صبر کنید تا انجام بشه.


خب پس از نصب شدن می تونید کد زیر رو امتحان کنید :


#!/usr/bin/perl

use strict;
use DBI();

use Mysql;
print "Content-type: text/html \n\n";

my $dbh = DBI->connect("DBI:mysql:database=enter_db_name;host=127.0.0.1",
"enter username", "enter password",
{'RaiseError' => 1});

$dbh->do("CREATE TABLE foo (id INTEGER, name VARCHAR(20))");

# INSERT some data into 'foo'. We are using $dbh->quote() for
# quoting the name.
$dbh->do("INSERT INTO foo VALUES (1, " . $dbh->quote("Tim") . ")");

# Same thing, but using placeholders
$dbh->do("INSERT INTO foo VALUES (?, ?)", undef, 2, "Jochen");

# Now retrieve data from the table.
my $sth = $dbh->prepare("SELECT * FROM foo");
$sth->execute();
while (my $ref = $sth->fetchrow_hashref()) {
print "Found a row: id = $ref->{'id'}, name = $ref->{'name'}\n";
}
$sth->finish();


:تشویق::تشویق::لبخند:
اطلاعات بیشتر <<


http://docs.activestate.com/activeperl/5.10/faq/ActivePerl-faq2.html