| ÆÄÀÏ :: grep. ÀÏ·ÃÀÇ ÆÄÀÏ ¹× °ü·Ã ±â´ÉÀÇ ÆÐÅÏ°ú ÀÏÄ¡ÇÏ´Â Ç׸ñ ã±â |
Áö±Ý ´Ù¿î·Îµå |
ÆÄÀÏ :: grep. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î