| ÆÄÀÏ :: ÀúÀå :: °¡Á¤ FILE :: SAVE :: HOMEÀº »ç¿ëÀÚ È¨ µð·ºÅ丮¿¡ ÆÄÀÏÀ» ¾ÈÀüÇÏ°Ô ¹èÄ¡ÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÆÄÀÏ :: ÀúÀå :: °¡Á¤ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- James E Keenan
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~particle/parrot-0.6.1/lib/Parrot/Pmc2c/Pmc2cMain.pm
ÆÄÀÏ :: ÀúÀå :: °¡Á¤ ű×
ÆÄÀÏ :: ÀúÀå :: °¡Á¤ ¼³¸í
File :: Save :: HomeÀº »ç¿ëÀÚ È¨ µð·ºÅ丮¿¡ ÆÄÀÏÀ» ¾ÈÀüÇÏ°Ô ¹èÄ¡ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ÆÄÀÏ :: ÀúÀå :: Ȩ »ç¿ëÀÚ È¨ Directory.Synopsis ÆÄÀÏ :: ÀúÀå :: Ȩ QW (Get_Home_Directory_Status make_subhome_directory_subhome_directory_subhome_file delect_target_file make_directory)À» »ç¿ëÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. $ home_dir = get_home_directory (); $ koression_dir_ref = get_subhome_directory_status ( "¿øÇÏ´Â / µð·ºÅ丮"); $ koression_dir_ref = get_subhome_directory_status ( "¿øÇÏ´Â / µð·ºÅ丮", "pseudohome / directory", # 2 Àμö ¹öÀü); $ koression_dir = make_subhome_directory ($ kownower_dir_ref); restore_subhome_directory_status ($ kownower_dir_ref); $ target_ref = inceal_target_file ({dir => $ looking_dir, file => 'file_to_be_checked', test => 0,}); recerect_target_file ($ target_ref); $ tmpdir = make_subhome_temp_directory (); $ tmpdir = make_subhome_temp_directory ( "pseudohome / directory", ¼±ÅÃÀû Àμö ¹öÀü); ´Ù¸¥ »ç¿ëÀÚÀÇ ½Ã½ºÅÛ¿¡ ÀÀ¿ë ÇÁ·Î±×·¥À» ¹èÆ÷ÇÏ´Â °úÁ¤¿¡¼ ÇØ´ç »ç¿ëÀÚÀÇ È¨ µð·ºÅ丮¿¡ ÆÄÀÏÀ» ¹èÄ¡ÇؾßÇÕ´Ï´Ù. ¾ÈÀüÇÏ°Ô ±×·¸°Ô ÇÒ ¼ö ÀÖ½À´Ï±î?ÀÌ Perl È®ÀåÀÚ´Â »ç¿ëÀÚ°¡ Ȩ µð·ºÅ丮 ¾Æ·¡ÀÇ µð·ºÅ丮 ¹× ÆÄÀÏÀ» ¾ÈÀüÇÏ°Ô ¸¸µé ¼ö ÀÖ´ÂÁö ¿©ºÎ¸¦ È®ÀÎÇÏ·Á°í ½ÃµµÇÏ´Â ¸î °¡Áö ±â´ÉÀ» Á¦°øÇÕ´Ï´Ù. ´Ù¸¥ °÷¿¡¼´Â Å×½ºÆ® ¸ñÀûÀ¸·Î Áï½Ã ÆÄÀÏÀ» ¹èÄ¡ÇÏ´Â °æ¿ì ´ÙÀ½°ú °°Àº Å×½ºÆ®¸¦ À§ÇØ ´ÙÀ½°ú °°Àº À̸§ÀÇ ±âÁ¸ ÆÄÀÏÀ» ÀϽÃÀûÀ¸·Î ¼û±æ ¼ö ÀÖÀ¸¸ç ¿Ï·áµÇ¸é ¿ø·¡ À̸§°ú ŸÀÓ ½ºÅÆÇÁ·Î º¹¿ø ÇÒ ¼ö ÀÖ½À´Ï´Ù. ...¿¡ ¿ä±¸ »çÇ× : ¡¤ Perl.
ÆÄÀÏ :: ÀúÀå :: °¡Á¤ °ü·Ã ¼ÒÇÁÆ®¿þ¾î