App::YG - ログをう゛ぁーてぃかるぱみゅぱみゅしちゃう！！

やあハッキングモンスターのみんな、元気かーい？ ぼくは普通です。

きょうはみんなでログをう゛ぁーてぃかるぱみゅぱみゅしちゃうぞ！あ、こんにちは bayashi です。

さて、ログは見てるかい？cat してるかい？ tail してるかい？ GB単位のログを vim で開いてフリーズさせてやいないかい？ログは吐いたら終わりじゃいけないぜ！ちゃんとうぉっちしないと鬼がでちゃうぞ！！

とはいえ、そんなログも、たいていは1行につらつらと書かれてて見るのがつらいね！！例えばこんなやつだ。

$ tail log
127.0.0.1 - bayashi [10/Oct/2000:13:55:36 -0700] "GET /apache_pb.gif HTTP/1.0" 200 2326 "http://www.example.com/start.html" "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)"
127.0.0.1 - bayashi [10/Oct/2000:13:55:38 -0700] "GET / HTTP/1.0" 200 6789 "http://www.example.com/docs/2.2/logs.html" "Mozilla/5.0 (Windows NT 5.1; rv:12.0) Gecko/20100101 Firefox/12.0"
127.0.0.1 - bayashi [10/Oct/2000:13:55:39 -0700] "GET /apache_pc.gif HTTP/1.0" 200 1234 "http://www.example.com/start.html" "Mozilla/5.0 (iPhone; U; CPU iPhone OS 4_3_2 like Mac OS X; ja-jp) AppleWebKit/533.17.9 (KHTML, like Gecko) Version/5.0.2 Mobile/8H7 Safari/6533.18.5"

こういうのを何千行も見て無意識に脳内パーズして目grepしてたら、頭がおかしくなってゾンビになりかけるだろ？

だからぼくは、yg っていうコマンドを使ってこうしてみるんだ！！

$ yg log
******************** 1 ********************
     Host: 127.0.0.1
    Ident: -
 Authuser: bayashi
     Date: 10/Oct/2000:13:55:36 -0700
  Request: GET /apache_pb.gif HTTP/1.0
   Status: 200
    Bytes: 2326
  Referer: http://www.example.com/start.html
UserAgent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)

******************** 2 ********************
     Host: 127.0.0.1
    Ident: -
 Authuser: bayashi
     Date: 10/Oct/2000:13:55:38 -0700
  Request: GET / HTTP/1.0
   Status: 200
    Bytes: 6789
  Referer: http://www.example.com/docs/2.2/logs.html
UserAgent: Mozilla/5.0 (Windows NT 5.1; rv:12.0) Gecko/20100101 Firefox/12.0

******************** 3 ********************
     Host: 127.0.0.1
    Ident: -
 Authuser: bayashi
     Date: 10/Oct/2000:13:55:39 -0700
  Request: GET /apache_pc.gif HTTP/1.0
   Status: 200
    Bytes: 1234
  Referer: http://www.example.com/start.html
UserAgent: Mozilla/5.0 (iPhone; U; CPU iPhone OS 4_3_2 like Mac OS X; ja-jp) AppleWebKit/533.17.9 (KHTML, like Gecko) Version/5.0.2 Mobile/8H7 Safari/6533.18.5

どうだい？わいるどだろぉ？！

$ sudo cpan App::YG

$ yg -p foo-bar hoge.log

$ yg -d -n fuga.log
******************** 1 ********************
1: 2012-11-27 14:34:08
2: [warn]
3: MyDoc/wiki/perl/robots could not find MyDoc/wiki/perl/robots at dev/MyApp/lib/MyApp/C/MyApp/Wiki.pm line 31.\n
4: METHOD:'GET'
5: REQ:'/wiki/perl/robots.txt'
6: IP:'***.***.***.***'
7: UA:'libwww-perl/6.04'
8: REF:''
9: (MyApp::F::Entry L15)

******************** 2 ********************
1: 2012-11-27 14:34:08
2: [warn]
3: Wiki Not Found
4: METHOD:'GET'
5: REQ:'/wiki/perl/robots.txt'
6: IP:'***.***.***.***'
7: UA:'libwww-perl/6.04'
8: REF:''
9: (MyApp::C::MyApp::Wiki L33)

******************** 3 ********************
1: 2012-11-27 14:34:08
2: [warn]
3: MyDoc/wiki/robots could not find MyDoc/wiki/robots at dev/MyApp/lib/MyApp/C/MyApp/Wiki.pm line 31.\n
4: METHOD:'GET'
5: REQ:'/wiki/robots.txt'
6: IP:'***.***.***.***'
7: UA:'libwww-perl/6.04'
8: REF:''
9: (MyApp::F::Entry L15)

$ cat page.log | yg