| IO :: DB. IO :: DB Perl ¸ðµâ¿¡´Â µ¥ÀÌÅͺ£À̽º ÆíÀÇ °³Ã¼°¡ Æ÷ÇԵǾî ÀÖ½À´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
IO :: DB. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- David Bialac
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dbialac/SDP-0.1/lib/IO/DB.pm
IO :: DB. ű×
IO :: DB. ¼³¸í
IO :: DB Perl ¸ðµâ¿¡´Â µ¥ÀÌÅͺ£À̽º ÆíÀÇ °³Ã¼°¡ µé¾î ÀÖ½À´Ï´Ù. IO :: DB Perl ¸ðµâ¿¡´Â µ¥ÀÌÅͺ£À̽º ÆíÀÇ °³Ã¼°¡ Æ÷ÇԵǾî ÀÖ½À´Ï´Ù. IO :: DB¸¦ »ç¿ëÇÕ´Ï´Ù. ³» $ db = »õ IO :: DB ({db_dsn => dbi : sybase : db01 ', db_user =>'web ', db_pass =>'password '}); # ¿¬°á ºÎÁ·¿¡ À¯ÀÇÇϽʽÿÀ! MY $ ROWS = $ DB-> SQL_ROWS ( 'MyTable'¿¡¼ Select Count (*)); Foreach My $ Row (@ $ Çà) {$ Row Çà -> {value}, "n"; } My $ hash = $ DB-> SQL_HASH ( 'MyTable Group¿¡¼ À̸§, À̸§'À̸§, À̸§, ¼ö (*)); Foreach My $ Key (KEYS (% $ hash)) {Àμâ "$ Å°´Â $ hash {$ Å°} n"ÀÔ´Ï´Ù. } IO :: DB ¶óÀ̺귯¸®°¡ ÀÛ¼ºµÇ¾úÀ¸¸ç ÆíÀÇ ¶óÀ̺귯¸®·Î ÀǵµµÇ¾ú½À´Ï´Ù. µ¿ÀÏÇÑ Áߺ¹ Äڵ带 »ç¿ëÇÏ¿© Äڵ忡¼ Ŭ·¯Å͸¦ ÁÙÀÓÀ¸·Î½á ÀÛµ¿ÇÕ´Ï´Ù. ¶ÇÇÑ Áö´ÉÇü ÄÚµå öÇÐÇÏ¿¡ ÀÛµ¿ÇÕ´Ï´Ù. Áï, ¹º°¡¸¦ÇÏ°í Äڵ带 ÀüÁ¦ Á¶°ÇÀ» ÆľÇÇϵµ·Ï ¾Ë·ÁÁֽʽÿÀ. ÀÌ°ÍÀº ºÎºÐÀûÀ¸·Î ¸í½Ã Àû ¿¬°á ±â´ÉÀÌ ºÎÁ·ÇÑ Ã¥ÀÓÀÌ ÀÖ½À´Ï´Ù. ÇöÀç ºÒ¿ÏÀüÇÑ °ßÀû ±â´É¿¡ ´ëÇؼµµ Ã¥ÀÓÀÌ ÀÖ½À´Ï´Ù. ¸ðÇè½ÉÀÌÀÖ´Â »ç¶÷µéÀº ÁÖÀ§¸¦ Â°í ±×°ÍÀ» ½Ãµµ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿¬°á ÁÖÁ¦·Î µ¹¾Æ °¡¸é ¶óÀ̺귯¸®´Â ÀÚµ¿À¸·Î SQL ¹®À» ¹ßÇà ÇÒ ¶§ óÀ½À¸·Î µ¥ÀÌÅͺ£À̽º¿¡ ¿¬°áµË´Ï´Ù. ¾î¶² ÀÌÀ¯·Î DBH¿¡ ¹ÀÎ ÀϺΠ±â´ÉÀÌ ÇÊ¿äÇÏ¸é ´ÙÀ½°ú °°Àº DBH ¸â¹ö¸¦ ÅëÇØ ¾×¼¼½º ÇÒ ¼ö ÀÖ½À´Ï´Ù. $ db -> {dbh} -> quote ($ myColumnData); SQLÀ» ½ÇÇàÇÏÁö ¾ÊÀº °æ¿ì ÀÛµ¿ ¾È ÇÒ °ÍÀÌ´Ù. ¸í½Ã Àû ¿¬°áÀÌ ÇÊ¿äÇÑ °æ¿ì¸¦ ãÀ¸¸é ´ÙÀ½°ú °°Àº °³ÀÎ _Connect ÇÔ¼ö¸¦ È£ÃâÇϽʽÿÀ. $ db -> _ connect (); ±Ã±ØÀûÀ¸·Î ½½¶óÀ̵å´Â Å×À̺íÀ» º¸ÀÌ´Â Çâ»óµÈ 'Àο빮'±â´ÉÀ» Æ÷ÇÔÇÏ°í Çʵ尡 ÀÖ´ÂÁö ¿©ºÎ¸¦ °áÁ¤ÇÕ´Ï´Ù. °ßÀûÀÌ ÇÊ¿äÇÕ´Ï´Ù. ÀÌ ¸ðµç Á¤º¸´Â ¹°·Ð ÀÌ·Î ÀÎÇØ ¹ß»ýÇÒ µ¥ÀÌÅͺ£À̽ºÀÇ Ãß°¡·Îµå¸¦ Á¦ÇÑÇϱâ À§ÇØ Ä³½Ã µÉ °ÍÀÔ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
IO :: DB. °ü·Ã ¼ÒÇÁÆ®¿þ¾î