| Ä÷º¼Ç :: ºÐ·ù µÈ °Í µ¥ÀÌÅÍ ¸ðÀ½À» ºÐ·ùÇÏ°í ±¸¼ºÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Ä÷º¼Ç :: ºÐ·ù µÈ °Í ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Jonathan Rockway
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jrockway/
Ä÷º¼Ç :: ºÐ·ù µÈ °Í ű×
Ä÷º¼Ç :: ºÐ·ù µÈ °Í ¼³¸í
µ¥ÀÌÅÍ ¸ðÀ½À» ºÐ·ùÇÏ°í ±¸¼ºÇÕ´Ï´Ù ¾ÆÀ̵ð¾î´Â Á¤Å© ¸ñ·ÏÀÌ ÁÖ¾îÁö¸é È¥µ·¿¡¼ ÁÖ¹®À» ã°í ½Í½À´Ï´Ù. ÀϺΠīÅ×°í¸® ÀÚ (¾Æ·¡ ÂüÁ¶)¸¦ ÀÛ¼ºÇÏ°í, µ¥ÀÌÅ͸¦ ´ýÇÁÇÏ°í, ¾î¶² Á¾·ùÀÇ ÀǹÌÀÖ´Â ¼ø¼·Î °¡Á® ¿À½Ê½Ã¿À. Ä÷º¼Ç :: ºÐ·ù µÈ Perl ¸ðµâÀº itsnopsis »ç¿ë Ä÷º¼Ç :: ºÐ·ù; # ¿ä¼Ò°¡ ºÐ·ùµÇ´Â Ä÷º¼ÇÀ» ¸¸µì´Ï´Ù. # ³» $ CC = COLLECTION :: ºÐ·ù µÈ Ŭ·¡½º -> »õ (ÇÏÀ§ {REF $ _}); # ÀϺΠµ¥ÀÌÅ͸¦ Ãß°¡ $ foo -> {awesomeness} = 42; $ cc-> add ($ foo); # $ foo isa foo $ cc-> Ãß°¡ ($ bar, $ bar2); # $ bars´Â bars $ cc-> add (@bazs); # @bazs´Â bazsÀÔ´Ï´Ù # @c @c = $ cc-> Ä«Å×°í¸®¸¦ º¸À¯ÇÏ°í ÀÖ½À´Ï´Ù. # (foo, bar, baz) # Ä«Å×°í¸®º°·Î µ¥ÀÌÅÍ °¡Á® ¿À±â my @foos = $ cc-> get ( 'foo'); # ($ foo) my @bars = $ cc-> get ( 'bar'); # ($ bar, $ bar2) @hoooo = $ cc-> get ( 'hoooo'); # Undef # great µ¥ÀÌÅÍ $ cc-> ÆíÁý (ÇÏÀ§ {grep {Á¤ÀÇ $ _-> {awesomeness}}}); @foos = $ cc-> get ( 'foo'); # ($ foo) @bars = $ cc-> get ( 'bar'); # () @hooo = $ cc-> get ( 'hoooo'); # undef ¿ä±¸ »çÇ× : ¡¤ Perl.
Ä÷º¼Ç :: ºÐ·ù µÈ °Í °ü·Ã ¼ÒÇÁÆ®¿þ¾î