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"; }
|