ÆÄÀÏ :: grep.

ÀÏ·ÃÀÇ ÆÄÀÏ ¹× °ü·Ã ±â´ÉÀÇ ÆÐÅÏ°ú ÀÏÄ¡ÇÏ´Â Ç׸ñ ã±â
Áö±Ý ´Ù¿î·Îµå

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

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Michael K. Neylon
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~dmuey/Hash-Merge-0.10/Merge.pm

ÆÄÀÏ :: grep. ű×


ÆÄÀÏ :: grep. ¼³¸í

ÀÏ·ÃÀÇ ÆÄÀÏ ¹× °ü·Ã ±â´ÉÀÇ ÆÐÅÏ°ú ÀÏÄ¡ÇÏ´Â ÀÏÄ¡ Ç׸ñ File :: GrepÀº ÀÏ·ÃÀÇ ÆÄÀÏ ¹× °ü·Ã ±â´ÉÀÇ ÆÐÅÏ°ú ÀÏÄ¡ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ½Ä ³ëÇÁ »ç¿ë ÆÄÀÏ :: Grep QW (FGrep FMAP FDO); # void context (fgrep {/ $ user /} "/ etc / passwd") {do_something (); } # ½ºÄ®¶ó ÄÁÅؽºÆ® Àμâ "À妽º ÆäÀÌÁö°¡", (fgrep {/ index.html/} glob "/var/log/httpd/access.log.*")¸¦ ÃƽÀ´Ï´Ù. "; # ¹è¿­ ÄÁÅؽºÆ® my @matches = fgrep {/var/log/httpd/access.log.*"; Àμ⠿ä¾à $ _ foreach @ matches; # my @ lower = fmap {Chomp; lc;} glob "/var/log/httpd/access.log.*"; # foreach style .. my $ count; fdo {$ count ++} @FileList; print "ÃÑ ÁÙ : $ count "# ´õ º¹ÀâÇÑ ³» @matchCount¸¦ ó¸®ÇÕ´Ï´Ù. FDO {My ($ ÆÄÀÏ, $ POS, $ line) = @_; $ matchcount ++ if ($ line = ~ / Å°¿öµå /);} @FileList; ÆÄÀÏ :: Grep Mimics PerlÀÇ Grep ÇÔ¼öÀÇ ±â´ÉÀÌ ÀÖÁö¸¸ ¸ñ·Ï ´ë½Å ÆÄÀÏ¿¡ Àû¿ëÇÕ´Ï´Ù. ÀÌ°ÍÀº UNIX GREP ¸í·ÉÀ¸·Î ÀÚ¿¬¿¡¼­ À¯»çÇÏÁö¸¸ ÆÐÅÏÀÌ ÀÓÀÇÀÇ ¹ýÀû Perl ±â´ÉÀÌ µÉ ¼ö ÀÖÀ¸¹Ç·Îº¸´Ù °­·ÂÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¡¤ Perl.


ÆÄÀÏ :: grep. °ü·Ã ¼ÒÇÁÆ®¿þ¾î