| È°¼ºÁ¦ :: DB. DBI¸¦ Æí¸®ÇÑ ¼ºê ·çƾÀ¸·Î Wrap ¹× ÇÁ·ÎÁ§Æ®ÀÇ ¸ðµç ÇÁ·Î±×·¥¿¡¼ ÀÏ°üµÈ ¾×¼¼½º ±ÇÇÑÀ» ´©¸¨´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
È°¼ºÁ¦ :: DB. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Karim A. Nassar
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~knassar/
È°¼ºÁ¦ :: DB. ű×
È°¼ºÁ¦ :: DB. ¼³¸í
DBI¸¦ Æí¸®ÇÑ ¼ºê ·çƾ°ú ÀÏ°ü¼ºÀÖ´Â ¾×¼¼½º·Î ÇÁ·ÎÁ§Æ®ÀÇ ¸ðµç ÇÁ·Î±×·¥À» ACCLOSS ¾×¼¼½ºÇϽʽÿÀ. Activator :: DB´Â Æí¸®ÇÑ ¼ºê ·çƾ°ú ÀÏ°üµÈ ¾×¼¼½º¿Í ÇÔ²² DBI¸¦ ·¦ÇÎÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Project.Synopsis »ç¿ë Activator :: db; MY $ DB = Activator :: DB-> ¿¬°á ( '±âº»°ª'); # ±âº» DB¿¡ ¿¬°á * ´ÜÀÏ Çà °¡Á® ¿À±â : my @row = $ DB-> getRow ($ SQL, $ bind, @args); MY $ ROWREF = $ DB-> GETROW_ARRAYREF ($ SQL, $ bind, @args); * col-> °ª ½ÖÀÇ hashref °¡Á® ¿À±â : my $ hashref = $ DB-> getRow_hashref ($ SQL, $ bind, @args); * ¸ðµç ÇàÀ» °¡Á®¿É´Ï´Ù. ArrayRef (À̵éÀº µ¿ÀÏÇÕ´Ï´Ù) : MY $ ROWSREF = $ DB-> getAll ($ SQL, $ bind, @args); MY $ ROWSREF = $ DB-> getAll_ArrayRefs ($ SQL, $ bind, @args); * ¸ðµç ÇàÀ» °¡Á®¿É´Ï´Ù : °¢ Çà¿¡ COLS-> °ª ½ÖÀÇ Çؽà ÂüÁ¶ : MY $ ROWSREF = $ DB-> getAll_hashrefs ($ SQL, $ bind, @args); * ¸ðµç Äõ¸® (ÀϹÝÀûÀ¸·Î »ðÀÔ, »èÁ¦, ¾÷µ¥ÀÌÆ®)¸¦ ¼öÇàÇϽʽÿÀ. MY $ ID = $ DB-> DO ($ SQL, $ bind, @args); * Äõ¸®¸¦ ¼öÇàÇÏÁö¸¸ ¼º°ø ´ë½Å ID¸¦ ¹ÝȯÇÕ´Ï´Ù. : MY $ ID = $ DB-> do_id ($ SQL, $ bind, @args); (Âü°í : ÀÌ°ÍÀº ¸Å¿ì mysql¿¡ Á¾¼ÓµË´Ï´Ù.) * ´Ù¸¥ DB¿¡¼ Àá½Ã ´Ù¸¥ DB¿¡¼ µ¥ÀÌÅÍ °¡Á® ¿À±â : $ db-> connect ( 'alt'); # ´ëü DB¿¡ ¿¬°á # $ DB-> ¿¬°á ( 'DEF') ¼öÇà; # ±âº» ¿¬°á·Î Àç¼³Á¤ # ¹º°¡ ´Ù¸¥ ÀÛ¾÷ (¾ÆÁ÷ ±¸ÇöµÇÁö ¾ÊÀ½) :: MY $ ALTDB = Activator :: DB-> Connect ( 'AltDB'); $ DB-> begin_work (); $ db-> do (@stuff); $ db-> do (@more_stuff); $ db-> commit (); ¿ä±¸ »çÇ× : ¡¤ Perl.
È°¼ºÁ¦ :: DB. °ü·Ã ¼ÒÇÁÆ®¿þ¾î