SQL :: DB. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Mark Lawrence
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~mlawren/
SQL :: DB. ű×
SQL :: DB. ¼³¸í
SQL :: DB´Â Perl °´Ã¼ ¹× ³í¸® ¿¬»êÀÚ¸¦ »ç¿ëÇÏ¿© SQL µ¥ÀÌÅͺ£À̽º¿¡ ´ëÇÑ ·Î¿ì ·¹º§ ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Ŭ·¡½º :: DBI¿Í °°Àº ¿ÀºêÁ§Æ® °ü°èÇü ¸ÅÆÛ°¡ ¾Æ´Õ´Ï´Ù :: DBI´Â SQL :: ÃÊ·Ï°ú °°Àº Ãß»óÈ°¡ ¾Æ´Õ´Ï´Ù. DEFINE_TABLES ()¸¦ »ç¿ëÇÏ¿© ½ºÅ°¸¶¸¦ ÁöÁ¤ÇÏ°í SQL :: DB ¿ÀºêÁ§Æ®¸¦ ÀÛ¼ºÇϱâ À§ÇØ ´ÙÀ½°ú °°½À´Ï´Ù. arow ()¸¦ ÅëÇØ ¾òÀº Çϳª ÀÌ»óÀÇ "Ãß»ó Çà"À» ¼öÇà ÇÒ ¼ö ÀÖ½À´Ï´Ù. * Äõ¸®¸¦ »ðÀÔ, ¾÷µ¥ÀÌÆ® ¶Ç´Â »èÁ¦ÇÒ ¼ö ÀÖ½À´Ï´Ù. * arow ()¸¦ ÅëÇØ ¾òÀº Çϳª ÀÌ»óÀÇ "Ãß»ó Çà"À» »ç¿ëÇÏ¿© ÀÛ¾÷ ÇÒ µ¥ÀÌÅ͸¦ °¡Á®¿Ã ¼ö ÀÖ½À´Ï´Ù. (°¡´ÉÇÏ¸é ¼öÁ¤ °¡´É). * ÇÊ¿ä¿¡ µû¶ó À§ÀÇ ¼¼ ´Ü°è¸¦ ¹Ýº¹ÇϽʽÿÀ. database.sql :: db¿¡¼ disconnect ()¿¡¼ ¸®ÅÏ µÈ °´Ã¼¿¡¼´Â ´õ ¸¹Àº Äõ¸®°¡ °¡´ÉÇÕ´Ï´Ù. , Á¶ÀÎ, Áßø µÈ ¼±ÅÃ, ³ëµ¿ Á¶ÇÕ, µ¥ÀÌÅͺ£À̽º Ãø ¿ÀÆÛ·¹ÀÌÅÍ È£Ãâ, ÇÔ¼ö È£Ãâ, Áý°è ½Ä µîÀÌ ÀÖÁö¸¸ÀÌ ÆÐÅ°Áö´Â ¿©ÀüÈ÷ ¾ÆÁÖ »õ·Î¿î °ÍÀÔ´Ï´Ù. Çǵå¹é, Å×½ºÆ® ¹× (´õ ³ªÀº) ÆÐÄ¡´Â ¸ðµÎ ȯ¿µÇÕ´Ï´Ù. SYNOPSIS SQL :: DB QW (DEFINE_TABLAS COUNT MAX)¸¦ »ç¿ëÇÕ´Ï´Ù. define_tables (, ¿ => , ¿ => ,], , column => , ¿ => , ¿ => , ¿ => , index => 'name',]); ³» $ DB = SQL :: DB-> new (); $ db-> connect ( 'dbi : sqlite : /tmp/sqldbtest.db', '»ç¿ëÀÚ', 'Æнº', {}); $ DB-> ¹èÆ÷; ³» $ Persons = $ DB-> AROW ( 'Persons'); ³» $ ÁÖ¼Ò = $ DB-> arow ( 'ÁÖ¼Ò'); $ DB-> DO (INSERT => , °ª => ,); $ DU (insert => , °ª => , ¿©±â¼ => $ persone -> name == 'homer',); MY $ ANS = $ DB-> FETCH1 (SELECT => => $ Persons, ¾îµð¼ => $ Persons-> 40, 40,); # ´ÙÀ½ Àμ⹰ "Çìµå Ä«¿îÆ® : 1 Max Age : 43"ÇÁ¸°Æ® 'Çìµå Ƚ¼ö :'. $ ans-> count_name. 'ÃÖ´ë ¿¬·É :'. $ ans-> max_age. "\ n"; my @items = $ db-> fetch (select => , => $ Persons, left_join => $ ÁÖ¼Ò => $ ÁÖ¼Ò -> ID == $ Personats-> ÁÖ¼Ò, ¿©±â¼ => ($ ÁÖ¼Ò -> µµ½Ã == 'Springfield') ¹× ($ Persons-> ³ªÀÌ> 40), order_by => $ Persons-> ³ªÀÌ -> desc, Çѵµ => 10,); # Àú¿¡°Ô "È£¸Ó (43)
"\N"; } Á¦Ç°ÀÇ È¨ÆäÀÌÁö
SQL :: DB. °ü·Ã ¼ÒÇÁÆ®¿þ¾î