| IO :: Util. IO :: UtilÀº ÀÏ¹Ý À¯Æ¿¸®Æ¼ IO ±â´ÉÀ» ¼±ÅÃÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
IO :: Util. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Domizio Demichelis
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~domizio/CGI-Application-Plus-1.21/lib/CGI/Application/CheckRM.pm
IO :: Util. ű×
IO :: Util. ¼³¸í
IO :: UtilÀº ÀÏ¹Ý À¯Æ¿¸®Æ¼ IO ±â´ÉÀ» ¼±ÅÃÇÕ´Ï´Ù. IO :: UTILÀº ÀϹÝÀûÀÎ À¯Æ¿¸®Æ¼ IO ±â´ÉÀÔ´Ï´Ù. IO :: UTIL QW (Slurp TID LID UID LOAD_MML)¸¦ »ç¿ëÇÕ´Ï´Ù. CAPTURE () # ¼±ÅÃÇÑ FILEHANDLE $ OUTPUT_REF = CAPTURE {any_printing_code ()}À» ĸóÇÕ´Ï´Ù. # now $$ output_ref eq '¹º°¡'# fileHandle $ output_ref = ĸó {any_special_printing_code ()} * fileHeandler; # $ ĸó µÈ ĸó {any_printing_code ()} * fileheandler, $ ĸó µÈ # Áö±Ý ĸó µÈ EQ '¹º°¡¸¦ Ãß°¡ÇϽʽÿÀ. # ´Ù¸¥ Ŭ·¡½º¸¦ »ç¿ëÇÏ¿© Çڵ鷯 »ç¿ë io :: ½ºÄ®¶ó; $ io :: util :: tie_handle_class = 'io :: scalar'slurp () $ _ ='/ path / to / file '; $ content_ref = slurp; $ content_ref = slurp '/ path / to / file'; $ content_ref = slurp * filehandle; # $ content $ _ = '/ path / to / file'¿¡ ÆÄÀÏ ³»¿ëÀ» Ãß°¡ÇϽʽÿÀ. Slurp $ ÇÔ¼ö; slurp '/ path / to / file', $ ÇÔ¼ö; slurp * filehandle, $ content; tid (), lid (), uid () $ temporerially_unique_id = tid; # 'Q9MU1N_NVRM'$ locally_unique_id = ¶Ñ²±; # '2ms_q9mu1n_p5f6'$ Universally_unique_id = UID; # 'mgjfsbtk_2ms_q9mu1n_pwes'a mml ÆÄÀÏ (ÃÖ¼ÒÇÑÀÇ ¸¶Å© ¾÷ ¾ð¾î) 01 02 03 04 05 <Å°> Å°> ¸ðµç Å° load_mml () $ struct = load_mml 'path / to / mml_file'; $ struct = load_mml $ mml_string; $ struct = load_mml * mmlfile; $ struct = load_mml ..., % ¿É¼Ç; # $ struct = {#''opa '=> {#'opta '=> #}, #'parb '=> {#'opta '= > , # 'OPTB'=> {# 'Å°'=> '¸ðµç Å°'#} #} #} ¿ä±¸ »çÇ× : ¡¤ ½Ã°£ :: °í¿ë ¡¤ SYS :: HostName. ¡¤ Perl.
IO :: Util. °ü·Ã ¼ÒÇÁÆ®¿þ¾î