È°¼ºÁ¦ :: DB.

DBI¸¦ Æí¸®ÇÑ ¼­ºê ·çƾÀ¸·Î Wrap ¹× ÇÁ·ÎÁ§Æ®ÀÇ ¸ðµç ÇÁ·Î±×·¥¿¡¼­ ÀÏ°üµÈ ¾×¼¼½º ±ÇÇÑÀ» ´©¸¨´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

È°¼ºÁ¦ :: DB. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î