ÀÌ»óÇÑ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~drolsky/
ÀÌ»óÇÑ Å±×
ÀÌ»óÇÑ ¼³¸í
PerlÀ» ÅëÇÑ SQL »ý¼º Fey´Â Perl.synopsis¸¦ ÅëÇØ ´õ ³ªÀº SQL »ý¼ºÀ» Á¦°øÇÕ´Ï´Ù Fey :: Lertional :: Function; fey :: ÀÚ¸® Ç¥½ÃÀÚ¸¦ »ç¿ëÇϽʽÿÀ; Fey :: ½ºÅ°¸¶¸¦ »ç¿ëÇϽʽÿÀ. Fey :: SQLÀ» »ç¿ëÇϽʽÿÀ. ³» $ schema = hand_waving (); MY $ USER = $ SCHEMA-> Å×À̺í ( '»ç¿ëÀÚ'); MY $ GROUP = $ SCHEMA-> Å×À̺í ( '±×·ì') MY $ SELECT = FEY :: SQL-> NEW_SELECT (); MY $ FUNC = FEY :: Literal :: Function-> New ( 'Lcase', $ USER-> ¿ ( '»ç¿ëÀÚ À̸§')); $ ¼±Åà -> ($ USER-> 'username'( 'user_id', 'username)) -> ($ USER, $ GROUP) -> ($ group-> group_id,', 1, 2, 3, 3) ) -> ($ func, ','smith % '); $ SELECT-> SQL ($ dbh)À» ÀμâÇϽʽÿÀ. FEY ¹èÆ÷ÆÇ¿¡´Â DBMS ½ºÅ°¸¶ÀÇ ±¸¼º ¿ä¼Ò¸¦ ³ªÅ¸³»´Â ÀÏ·ÃÀÇ ¸ðµâÀÌ Æ÷ÇԵǾî ÀÖÀ¸¸ç ÇØ´ç ½ºÅ°¸¶¸¦ ±â¹ÝÀ¸·Î SQL Äõ¸®¸¦ µ¿ÀûÀ¸·Î »ý¼º ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
ÀÌ»óÇÑ °ü·Ã ¼ÒÇÁÆ®¿þ¾î