saeedvir
دوشنبه 14 مرداد 1392, 12:28 عصر
برای اینکه از 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
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