awk '{if($7 !~/.(jpg|css|gif|js|pdf)/){print $1,$4,$7}}' vancouver.com.access_log | perl -e '%day;while(<STDIN>){/(.*?) \[(\d\d\/.*?\/\d\d\d\d).+? (.*?)$/; push(@{$day{$2}},$1." ".$2." ".$3."\n");} foreach $k (keys %day) {print $k, " ", int(@{$day{$k}}), "\n";}'