ÀÀ¿ëÇÁ·Î±×·¥ °³¹ß ¾È³»¼­

Perl¿¡¼­ °á°ú ÆäÄ¡

Perl DBI ¸ðµâÀº µ¿Àû SQL¸¸ Áö¿øÇϹǷΠPerl DB2 ÀÀ¿ëÇÁ·Î±×·¥¿¡¼­ È£½ºÆ® º¯¼ö¸¦ »ç¿ëÇÏÁö ¾Ê½À´Ï´Ù. SQL Á¶È¸¿¡¼­ °á°ú¸¦ ¸®ÅÏÇÏ·Á¸é ´ÙÀ½ ´Ü°è¸¦ ¼öÇàÇϽʽÿÀ.

´Ü°è  1.

PerlÀ» »ç¿ëÇÑ µ¥ÀÌÅͺ£À̽º ¿¬°á¿¡¼­ ¼³¸íµÈ ´ë·Î µ¥ÀÌÅͺ£À̽º ÇÚµéÀ» ÀÛ¼ºÇÕ´Ï´Ù.

´Ü°è  2.

µ¥ÀÌÅͺ£À̽º Çڵ鿡¼­ ¸í·É¹® ÇÚµéÀ» ÀÛ¼ºÇÕ´Ï´Ù. ¿¹¸¦ µé¾î, SQL¹®À» ÅëÇØ prepare¸¦ ¹®ÀÚ¿­ Àμö·Î È£ÃâÇÏ¿© ´ÙÀ½ Perl¹®¿¡¼­¿Í °°ÀÌ µ¥ÀÌÅͺ£À̽º Çڵ鿡¼­ ¸í·É¹® ÇÚµé $sth¸¦ ¸®ÅÏÇÒ ¼ö ÀÖ½À´Ï´Ù.

   my $sth = $dbhandle->prepare(
      'SELECT firstnme, lastname
         FROM employee '
      );

´Ü°è  3.

¸í·É¹® Çڵ鿡¼­ execute¸¦ È£ÃâÇÏ¿© SQL¹®À» ½ÇÇàÇϽʽÿÀ. ¼º°øÀûÀÎ execute È£ÃâÀº °á°ú ¼¼Æ®¸¦ ¸í·É¹® ÇÚµé°ú ¿¬°ü½Ãŵ´Ï´Ù. ¿¹¸¦ µé¾î, ´ÙÀ½ Perl¹®À» »ç¿ëÇÏ¿© ÀÌÀü ¿¹Á¦¿¡¼­ ÁغñµÈ ¸í·É¹®À» ½ÇÇàÇÒ ¼ö ÀÖ½À´Ï´Ù.

   #Note: $rc represents the return code for the execute call
   my $rc = $sth->execute();

´Ü°è  4.

fetchrow()¿¡ ´ëÇÑ È£Ãâ·Î ¸í·É¹® Çڵ鿡 ¿¬°üµÈ °á°ú ¼¼Æ®¿¡¼­ ÇàÀ» ÆäÄ¡ÇϽʽÿÀ. Perl DBI´Â ÇàÀ» Ä÷³´ç °ªÀÌ ÇϳªÀÎ ¹è¿­·Î ¸®ÅÏÇÕ´Ï´Ù. ¿¹¸¦ µé¾î, ´ÙÀ½ Perl¹®À» »ç¿ëÇÏ¿© ÀÌÀü ¿¹Á¦ÀÇ ¸í·É¹® Çڵ鿡¼­ ¸ðµç ÇàÀ» ¸®ÅÏÇÒ ¼ö ÀÖ½À´Ï´Ù.

   while (($firstnme, $lastname) = $sth->fetchrow()) {
      print "$firstnme $lastname\n";
   }


[ ÆäÀÌÁöÀÇ ¸Ç À§ | ÀÌÀü ÆäÀÌÁö | ´ÙÀ½ ÆäÀÌÁö | ¸ñÂ÷ | »öÀÎ ]