| ÆÄÀÏ :: util. FILE :: UTILÀº ½±°í, ´Ù¾çÇÑ ÈÞ´ë¿ë ÆÄÀÏ Ã³¸® ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÆÄÀÏ :: util. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Tommy Butler
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~tommy/Class-OOorNO-0.011/OOorNO.pod
ÆÄÀÏ :: util. ű×
ÆÄÀÏ :: util. ¼³¸í
File :: UtilÀº ½±°í ´Ù¸ñÀûÀÌ°í ÈÞ´ë¿ë ÆÄÀÏ Ã³¸® ¸ðµâÀÔ´Ï´Ù. File :: UtilÀº ½±°í ´Ù¸ñÀûÀ̸ç ÈÞ´ë¿ë ÆÄÀÏ Ã³¸® ¸ðµâÀÔ´Ï´Ù. ÆÄÀÏ :: utilÀº ÆÄÀÏ / µð·ºÅ丮¿¡¼ ¸ðµç Á¾·ùÀÇ °øÅë ÀÛ¾÷À» ÀÚµ¿ÈÇÏ´Â À¯Æ¿¸®Æ¼ÀÇ Æ÷°ýÀû ÀÎ µµ±¸ »óÀÚ¸¦ Á¦°øÇÕ´Ï´Ù. ±× ¸ñÀûÀºÀÌ ¸ðµâÀÇ »ç¿ëÀÚ°¡ ´Ù¸¥ OS ¹× Machines¿¡¼ ÇØ´ç ÇÁ·Î±×·¥ÀÌ ÀÛµ¿ÇÒÁö ¿©ºÎ¸¦ °ÆÁ¤ÇÒ ÇÊ¿ä°¡ ¾ø½À´Ï´Ù. MY ($ f) = ÆÄÀÏ :: util-> new (); ³» ($ content) = $ f-> load_file ( 'foo.txt'); $ content = s / this / thit / g; $ f-> write_file ( 'file'=> 'bar.txt', 'content'=> $ content, 'bitmask'=> 0644); $ f-> write_file ( 'file'=> 'file.bin', 'content'=> $ binary_content, '- binmode'); my (@lines) = $ f-> load_file ( 'randomquote.txt', '- ¶óÀÎ'); MY ($ line) = int (rand (scalar @ lines)); $ LINE Àμâ ; my (@files) = $ F-> list_dir ( '/ var / tmp', qw / --files Àü¿ë - ·¹ÄÚ¾î /); MY (@TextFiles) = $ F-> list_dir ( '/ var / tmp', '--pattern = .txt $'); if ($ f-> can_write ( 'wibble.log')) {my ($ handle) = $ f-> open_handle ( 'file'=> 'wibble.log', 'mode'=> 'append'); $ ÇÚµéÀ» Àμâ "Hello World! it", Scalar Localtime; ´Ý±â $ handle} My ($ log_line_count) = $ f-> line_count ( '/ var / log / httpd / access_log'); "³» ÆÄÀÏÀÇ Bitmask"¸¦ ÀμâÇϽʽÿÀ. $ f-> bitmask ( 'my.file'); "³» ÆÄÀÏÀÌ A"¸¦ ÀμâÇÕ´Ï´Ù. °¡ÀÔ ( ',', $ F-> file_type ( 'my.file')). "ÆÄÀÏ" ÀÌ ÆÄÀÏÀº ¹ÙÀ̳ʸ®ÀÔ´Ï´Ù! ' $ F-> À̽ººó ( 'my.file') ÀÎ °æ¿ì; "³» ÆÄÀÏÀÌ ¸¶Áö¸·À¸·Î ¼öÁ¤µÇ¾ú½À´Ï´Ù"¸¦ ÀμâÇϽʽÿÀ. Scalar Localtime ($ F-> last_modified ( 'my.file')); # ... ¹× _lots_ ´õ ¸¹Àº ¿ä±¸ »çÇ× : ¡¤ Perl.
ÆÄÀÏ :: util. °ü·Ã ¼ÒÇÁÆ®¿þ¾î