- or download this
use strict;
use warnings;
...
217.0.22.3 - - [10/Apr/2007:10:58:27 +0300] "GET / HTTP/1.1" 200 3700
217.0.22.3 - - [10/Apr/2007:10:58:34 +0300] "GET /unix_sysadmin.html H
+TTP/1.1" 200 3880
217.0.22.3 - - [10/Apr/2007:10:58:45 +0300] "GET /talks/Fundamentals/r
+ead-excel-file.html HTTP/1.1" 404 31
- or download this
66.249.65.107 - - [11/Nov/2012:19:33:01 -0400] "GET /support.html HTTP
+/1.1" 200 11179
111.111.111.111 - - [11/Nov/2012:19:33:01 -0400] "GET / HTTP/1.1" 200
+10801
- or download this
my $mergedYesterday = join '/', ( split ' ', $yesterday )[ 2, 1, 4 ];
^ ^ ^ ^ ^ ^
...
| | + - Sun Nov 11 19:31
+:46 2012
| + - Use same delimiter as in log records
+ - 11/Nov/2012
- or download this
/\[([^:]+)/;
^ ^
| |
| + - Capture everything up to the first colon, e.g., 11/Nov/2012
+ - Anchor at left bracket