ÆÄÀÏ :: util.

FILE :: UTILÀº ½±°í, ´Ù¾çÇÑ ÈÞ´ë¿ë ÆÄÀÏ Ã³¸® ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

ÆÄÀÏ :: util. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î