New Page 1

از دكتر اينترنت بپرسيد

نويسنده: Steve Blass
Network World
مترجم: زهره چكنی

فرامينگهام- من می‌بايد ديتابيس My SQL خود را در پاسخ به يك فرم شبكه كه متعهد به استفاده از Perl است را update كنم. اصول اوليه Perl را می‌دانم و سايت شبكه آن ماجول‌های اتصال اين ديتابيس را عرضه می‌كند، اما به كمك احتياج دارم. اقدامات اساسی برای اجرای يك update ديتابيس با Perl چيست؟

اين كار مستلزم جمع‌آوری داده‌های فيلدهای فرم می‌باشد، سپس ساخت جمله SQL كه می‌خواهيد به ديتابيس بفرستيد، برقراری ارتباط، ارسال فرمان، مطالعه نتايج و ارسال پاسخ به كاربر. اگر می‌خواهيد چندين جمله (Statement) را بگنجانيد از عبارت "UseCGI" و "UseDBI" در ابتدای نوشته خود استفاده كنيد تا بتوانيد به راحتی فيلد‌های فرم را بخوانيد و با ديتابيس صحبت كند. اطلاعات Form با استفاده از جملاتی نظير عبارات زيرا می‌آيند:

my$variablevalue=CGI::param('formfieldname')i

ساخت جمله SQL رامی‌توان با ساخت يك متغيير sqlstring$ نيز انجام داد.

برای گشايش اتصال ديتابيس از عبارتی نظير عبارت زير استفاده كنيد:

$db=DBlconnect('DBI:mysql:mydatabase','user','pw')

ارسال فرمان به ديتابيس به دو جمله نياز دارد:

$output=$db->prepare($sqlstring)

$output->execute

در خواندن نتايج از يك loop استفاده كنيد:

while($result=$output->fetchrow()){print "$result";}

پس از خواندن نتايج اتصال ديتابيس رابينديد:

$output->finish

از اينجا، شما می‌توانيد از جملات print استفاده كنيد تا خروجی HTML را ساخته و به مرورگر باز گردانيد.