| ¼öÇÐ :: ³í¸® :: ¼ú¾î MATH :: LOGIC :: FROENCE´Â ¼ú¾î ÁÖÀå µ¥ÀÌÅͺ£À̽º¸¦ °ü¸®ÇÏ°í Äõ¸®ÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
¼öÇÐ :: ³í¸® :: ¼ú¾î ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~lpalmer/Symbol-Opaque-0.03/lib/Symbol/Opaque.pm
¼öÇÐ :: ³í¸® :: ¼ú¾î ű×
¼öÇÐ :: ³í¸® :: ¼ú¾î ¼³¸í
Math :: logic :: ¼ú¾î´Â ¼ú¾î ÁÖÀå µ¥ÀÌÅͺ£À̽º¸¦ °ü¸®ÇÏ°í Äõ¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Math :: logic :: ¼ú¾î´Â ¼ú¾î ÁÖÀå µ¥ÀÌÅͺ£À̽º¸¦ °ü¸®ÇÏ°í Äõ¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù .Synopsis´Â Math :: Logic :: Prormicate; $ db = »õ·Î¿î ¼öÇÐ :: logic :: ¼ú¾î; # $ DB-> ADD ( 'SMART (_)')¸¦ µ¥ÀÌÅͺ£À̽º¿¡ ÀÔ·ÂÇϽʽÿÀ. # Äõ¸® $ Äõ¸® = $ DB-> ±¸¹® ºÐ¼® ( 'Àΰ£ (h) ¹× À̸§ (h, x)?' ); $ iter = $ DB-> ÀÏÄ¡ ($ Äõ¸®, $ iter); # °á°ú °¡Á® ¿À±â $ name = $ db-> get ($ iter, 'x'); # ±ÔÄ¢ $ db-> Ãß°¡ ( 'Human_Name (h, n) : = Àΰ£ (h) ¹× À̸§ (h, n).'); Äõ¸® $ iter = $ db-> ÀÏÄ¡ ( 'human_name (lister, n))¿¡¼ ±×°ÍÀ» »ç¿ëÇϽʽÿÀ. # ÀúÀå °¡´ÉÇÑ ÆÄÀÏ »ç¿ë °¡´É; ÀúÀå ($ db-> ±ÔÄ¢, 'red_dwarf'); ¿ä±¸ »çÇ× : ¡¤ Perl.
¼öÇÐ :: ³í¸® :: ¼ú¾î °ü·Ã ¼ÒÇÁÆ®¿þ¾î