Regexp-Log-Common-0.10The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
Regexp::Log::Common ã®ä½¿ã„方を覚ãˆãŸ - @kyanny's blog
ã“ã‚Œã§ã‚‚ㆠaccess_log をパースã™ã‚‹ã¨ãã«æ£è¦è¡¨ç¾ã‚’ã©ã†æ›¸ãã¹ãã‹ã§æ‚©ã‚€å¿…è¦ãŒãªããªã£ãŸã€‚ 普通㫠LogFormat combined ãªãƒ•ã‚¡ã‚¤ãƒ«ã‚’パースã™ã‚‹ã¨ãã¯ã“ã‚Œã§ã„ã„。 my $foo = Regexp::Log::Common->new( format => ':extended', capture => [qw(host rfc authuser date request status bytes referer useragent)], ); my $re = $foo->regexp; my @fields = $foo->capture; while (<>) { my %data; @data{@fields} = /$re/; # do something } ã¡ã‚‡ã£ã¨ã‚«ã‚¹ã‚¿ãƒžã‚¤ã‚ºã•ã‚ŒãŸå ´åˆã‚‚ã“ã‚“ãªé¢¨ã«ã—ã¦æ‹¡å¼µãŒå¯èƒ½ã€‚ my $format = q[%ho
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
処ç†ã‚’実行ä¸ã§ã™
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}