| ¾ÈÀü :: ¼¼°è SAFE :: World´Â ÇÔ²² Á¶¸³ÇÒ ¼öÀÖ´Â Perl ÀÎÅÍÇÁ¸®ÅÍÀÇ ¿©·¯ °¡»ó ÀνºÅϽº¸¦ ¸¸µé ¼ö ÀÖ½À´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
¾ÈÀü :: ¼¼°è ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Graciliano M. P.
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~gmpassos/
¾ÈÀü :: ¼¼°è ű×
¾ÈÀü :: ¼¼°è ¼³¸í
Safe :: World´Â ÇÔ²² Á¶¸³ÇÒ ¼öÀÖ´Â Perl ÀÎÅÍÇÁ¸®ÅÍÀÇ ¿©·¯ °¡»ó ÀνºÅϽº¸¦ ¸¸µé ¼ö ÀÖ½À´Ï´Ù. Safe :: World´Â ÇÔ²² Á¶¸³ÇÒ ¼öÀÖ´Â Perl ÀÎÅÍÇÁ¸®ÅÍÀÇ ¿©·¯ °¡»ó ÀνºÅϽº¸¦ »ý¼º ÇÒ ¼ö ÀÖ½À´Ï´Ù. º¹ÀâÇÑ ¿¹Á¦ ¹× Test.pl ½ºÅ©¸³Æ®¿¡ ´ëÇÑ ¼½¼ÇÀ» »ç¿ëÇϽʽÿÀ. ¾ÈÀü :: ¼¼°è¸¦ »ç¿ëÇϽʽÿÀ; My $ World = Safe :: World-> New (stdout => $ stdout, ## -ÀÌ ½ºÄ®¶ó·Î stdoutÀ» ¸®µð·º¼ÇÇϽʽÿÀ. stderr => $ stderr, ## - stderr stderrÀÌ ½ºÄ®¶ó·Î ¸®µð·º¼ÇÇϽʽÿÀ. Ç÷¯½Ã => 1, ## - Ãâ·ÂÀÌ Ç÷¯½ÃµÇ°í, SOO ##¿¡ ´ëÇÑ Á¾·á¸¦ ±â´Ù¸± ÇÊ¿ä°¡ ¾ø½À´Ï´Ù. $ stdout ³»ÀÇ ¸ðµç µ¥ÀÌÅÍ°¡ ÀÖ½À´Ï´Ù.); ## ÀϺΠÄÚµå Æò°¡ : $ World-> eval (Q` »ç¿ë µ¥ÀÌÅÍ :: Dumper, Àμ⠴ýÆÛ ({a => 1, b => 2});`); $ World-> ´Ý±â; ## ¸ðµç °ÍÀÌ ¿Ï·áµÇ°í Ç÷¯½ÃµÇ¾ú´ÂÁö È®ÀÎÇϽʽÿÀ. $ stderrÀÇ °æ¿ì Á×À» °æ¿ì ($ stderr); $ stdoutÀ» ÀμâÇϽʽÿÀ; $ ¿ùµå = undef; ## ¼¼»óÀ» Æı«ÇϽʽÿÀ. ¿©±â¼ ±¸È¹Àº ±ú²ýÇϰԵ˴ϴÙ.ÀÌ ¿¹¿¡¼´Â ¼¼°è ³»¿¡¼ µ¥ÀÌÅÍ :: DumperÀÌÁö¸¸ µ¥ÀÌÅÍ :: Dumper´Â ¿ÜºÎÀÇ Á¤»óÀ» À¯ÁöÇÏ¸é¼ µ¥ÀÌÅÍ :: Dumper°¡ ±× ¾È¿¡¸¸·ÎµåµÇ¾ú½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
¾ÈÀü :: ¼¼°è °ü·Ã ¼ÒÇÁÆ®¿þ¾î