¿¹¿Ü :: Ŭ·¡½º :: DBI. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- David E. Wheeler
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dwheeler/
¿¹¿Ü :: Ŭ·¡½º :: DBI. ű×
¿¹¿Ü :: Ŭ·¡½º :: DBI. ¼³¸í
DBI ¿¹¿Ü °³Ã¼ ¿¹¿Ü :: Ŭ·¡½º :: DBI´Â DBI ƯÀÌ Àû ¿¹¿Ü Ŭ·¡½º ¼¼Æ®¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ±×µéÀº ¿¹¿Ü :: Ŭ·¡½º¿¡¼ CPAN¿¡¼ ¿¹¿Ü :: Ŭ·¡½º ¸ðµâ¿¡ ÀÇÇØ ÀÛ¼ºµÈ ¸ðµç ¿¹¿Ü °´Ã¼ÀÇ ±âº» Ŭ·¡½º¿¡¼ »ó¼Ó¹Þ½À´Ï´Ù. ¿¹¿Ü :: Ŭ·¡½º :: DBI ÀÚü´Â DBI HandlePror ¼Ó¼º¿¡ Àü´ÞÇÏ´Â µ¥ ÀûÇÕÇÑ ÄÚµå ÂüÁ¶¸¦ ¹ÝȯÇÏ´Â ´ÜÀÏ Å¬·¡½º ¸Þ¼Òµå ¸Þ¼Òµå, Çڵ鷯 ()¸¦ Á¦°øÇÕ´Ï´Ù. ¿¹¿Ü :: Ŭ·¡½º :: DBI·Î ÀÛ¼ºµÈ ¿¹¿Ü Ŭ·¡½º´Â ´øÁ® Áöµµ·Ï ¼³°èµÇ¾ú½À´Ï´Ù. ƯÁ¤ DBI ÄÁÅؽºÆ®; Çڵ鷯 ()¿¡ ÀÇÇØ ¹ÝȯµÇ°í dbi handleerror ¼Ó¼º¿¡ Àü´Þ µÈ ÄÚµå ÂüÁ¶´Â ÄÁÅؽºÆ®¸¦ °áÁ¤ÇÏ°í Exception :: class :: dbi Ŭ·¡½ºÀÇ ÇØ´ç exception.eachÀÇ ÇØ´ç exception.each¸¦ three ¿¹¿Ü¿¡¼ Á¦°øÇÏ´Â °Í ¿Ü¿¡µµ °´Ã¼ ¾×¼¼¼ ¸Þ¼Òµå ¼¼Æ®¸¦ Á¦°øÇÕ´Ï´Ù. :µî±Þ. À̵éÀº ¿¹¿Ü°¡ ¹ß»ýÇÏ´Â °æ¿ì »ó¼¼ÇÑ Áø´Ü Á¤º¸¸¦ Ãâ·ÂÇÏ´Â µ¥ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ½Ä ³ëÇÁ°¡ DBI¸¦ »ç¿ëÇϽʽÿÀ. ¿¹¿Ü :: Ŭ·¡½º :: dbi; $ dbh = dbi-> connect ($ dsn, $ user, $ pass, {printerror => 0, raiserError => 0, handleerror => ¿¹¿Ü :: Ŭ·¡½º :: dbi-> 󸮱â,}); eval {$ dbh-> do ($ SQL)}; if (my $ ex = $ @) {print stderr "dbi ¿¹¿Ü : \ n"; stderr "¿¹¿Ü À¯Çü :", ref $ ex, "\ n"; Print stderr "¿À·ù :", $ ex-> ¿À·ù, "\ n"; Àμâ stderr "Err :", $ ex-> err, "\ n"; stderr "errstr :", $ ex-> errstr, "\ n"; stderr "state :", $ ex-> state, "\ n"; stderr "¹Ýȯ °ª :", ($ ex-> retval || 'undef'), "\ n"; } ¿ä±¸ »çÇ× : ¡¤ Perl.
¿¹¿Ü :: Ŭ·¡½º :: DBI. °ü·Ã ¼ÒÇÁÆ®¿þ¾î