asigatchov

SELECT 
    ip, 
    avg(resp_time) AS avg_time, 
    domain, 
    path
FROM access_log 
WHERE event_date = '2016-11-01'
GROUP BY 
    path, 
    ip, 

asigatchov

SELECT 
    ip, 
    avg(resp_time) AS avg_time, 
    domain, 
    path
FROM access_log 
WHERE event_date = '2016-11-01'
GROUP BY 
    path, 
    ip, 

asigatchov

SELECT 
    toStartOfHour(datetime) AS hours, 
    code, 
    count() AS error_count, 
    bar(error_count, 0, 500) AS error
FROM access_log 
WHERE (event_date = '2016-11-01') AND (code > 399) AND (code < 599)
GROUP BY 
    hours, 
    code

asigatchov

CREATE TABLE access_log ( 
  event_date Date, 
  hostname String, 
  schema String, 
  domain String,  
  ip String,  
  datetime DateTime,  
  method String,  
  path String,  
  code UInt16,  

asigatchov

#!/usr/bin/perl

use strict;
use warnings;

use Date::Parse;
use DateTime;

my $file = $ARGV[0];
my $hostname = $ARGV[1];