»ó¡

±âÈ£´Â Perl ±âÈ£¿Í ÇØ´ç À̸§À» Á¶ÀÛÇϱâ À§ÇØ »ý¼º µÈ Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

»ó¡ ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Symbol team
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~tty/kurila-0_02/lib/Symbol.pm

»ó¡ ű×


»ó¡ ¼³¸í

±âÈ£´Â Perl ±âÈ£¿Í ÇØ´ç À̸§À» Á¶ÀÛÇϱâ À§ÇØ »ý¼º µÈ Perl ¸ðµâÀÔ´Ï´Ù. ±âÈ£´Â Perl ±âÈ£¿Í ÇØ´ç À̸§À» Á¶ÀÛÇϱâ À§ÇØ »ý¼º µÈ Perl ¸ðµâÀÔ´Ï´Ù .Synopsis »ç¿ë ±âÈ£; $ sym = gensym; ¿­±â ($ sym, "filename"); $ _ =; # ±âŸ ungensym $ sym; # ¾Æ¹«·± È¿°ú°¡ ¾ø½À´Ï´Ù * foo {io} ÇÚµéÀÌÁö¸¸ $ foo, % foo µî * foo = geniosym; Àμ⠱ÔÁ¤ ( "x"), "n"; # "test :: x"Àμâ ÀÚ°Ý ( "x", "foo"), "n"# "foo :: x"Àμ⠱ÔÁ¤ ( "bar :: x"), "n"; # "bar :: x"Àμâ ÀÚ°Ý ( "bar :: x", "foo"), "n"; # "bar :: x"Àμâ ÀÚ°Ý ( "stdout", "foo"), "n"; # "main :: stdout"(Àü¿ª) Àμâ ÀÚ°Ý (* x), "n"; # ¸®ÅÏ * x Àμâ ÀÚ°Ý (* x, "foo"), "n"; # ¹Ýȯ * x ¾ö°ÝÇÑ Refs; Àμâ {qualify_to_ref $ fh} "foo! n"; $ ref = qualify_to_ref $ name, $ pkg; ±âÈ£ QW (delete_package)¸¦ »ç¿ëÇϽʽÿÀ. delete_package ( 'foo :: bar'); $ foo :: {bar :: '}; ±âÈ£ :: gensymÀº À͸íÀÇ ±Û·Î±×¸¦ »ý¼ºÇÏ°í ÂüÁ¶¸¦ ÂüÁ¶ÇÕ´Ï´Ù. ÀÌ·¯ÇÑ GLOB ÂüÁ¶´Â ÆÄÀÏ ¶Ç´Â µð·ºÅ丮 ÇÚµé·Î »ç¿ëµÉ ¼ö ÀÖ½À´Ï´Ù. À͸íÀÇ ±Û·Îºê¸¦ Áö¿øÇÏÁö ¾Ê´Â ÀÌÀü ±¸Çö°úÀÇ ¿ª ȣȯ¼º, ±âÈ£ :: ungensymµµ Á¦°øµË´Ï´Ù. ±×·¯³ª ±×°ÍÀº ¾Æ¹«°ÍµµÇÏÁö ¾Ê½À´Ï´Ù .Symbol :: GeniosymÀº À͸íÀÇ IO ¼ÕÀâÀ̸¦ ¸¸µì´Ï´Ù. ÀÌ°ÍÀº GLOBÀÇ ºñ IO ºÎºÐ¿¡ ¿µÇâÀ» ¹ÌÄ¡Áö ¾Ê°í ±âÁ¸ÀÇ GLOB¿¡ ÇÒ´ç ÇÒ ¼ö ÀÖ½À´Ï´Ù .SYMBOL :: QUALIFY ±ÔÁ¤µÇÁö ¾ÊÀº ½Éº¼ À̸§ (¿¹ : "MYVAR"-> "myPackage :: Myvar"·Î unqualified ½Éº¼ À̸§À» ÄÕ´Ï´Ù.). µÎ ¹ø° ¸Å°³ º¯¼ö°¡ ÁÖ¾îÁö¸é IT¸¦ ±âº» ÆÐÅ°Áö·Î »ç¿ëÇÕ´Ï´Ù. ±×·¸Áö ¾ÊÀ¸¸é È£ÃâÀÚÀÇ ÆÐÅ°Áö¸¦ »ç¿ëÇÕ´Ï´Ù. °ü°è¾øÀÌ ±Û·Î¹ú º¯¼ö À̸§ (¿¹ : "stdout", "env", "sig")´Â Ç×»ó "main ::"·Î ÀÚ°ÝÀ»ÁÝ´Ï´Ù. ÀÚ°ÝÀº ±âÈ£ À̸§ (¹®ÀÚ¿­)¿¡¸¸ Àû¿ëµË´Ï´Ù. Âü°í ¹®ÇåÀº ±×µéÀÌ ÀÚ¿¬¿¡ ÀÇÇØ ÀÚ°ÝÀ» °®Ãá ±Û·Îºê ÂüÁ¶°¡ °¡Á¤ÇÏ¿¡ º¯°æµÇÁö ¾ÊÀº °ÍÀ¸·Î ¿ÞÂÊÀ¸·Î ¿ÞÂÊÀ¸·Î ¿ÞÂÊÀÔ´Ï´Ù. STRICT 'REFS'¸¦ »ç¿ëÇÏ´õ¶óµµ Symbol :: Delete_Package Àüü ÆÐÅ°Áö ³×ÀÓ ½ºÆäÀ̽º¸¦ ´Û¾Æ³À´Ï´Ù. Âü°íÀÌ ·çƾÀº ±âº»ÀûÀ¸·Î ³»º¸³»Áö ¾Ê½À´Ï´Ù. ¸í½Ã ÀûÀ¸·Î °¡Á®¿Ã ¼ö ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


»ó¡ °ü·Ã ¼ÒÇÁÆ®¿þ¾î