perl -i -n -a -F'(\"[^\"]+\")|(\[[^\]]+\])|([^\s]+)' -e '$s{@F[33]}++;$c++;map{print"$s{$_}\t".int($s{$_}/$c*100)."\t$_\n"}sort{$s{$b}<=>$s{$a}}keys%s if(eof())' < access.log
perl -MDate::Manip -i -n -a -F'(\"[^\"]+\")|(\[[^\]]+\])|([^\s]+)' -e '($t=@F[14])=~s/[\[\]]//g;push@a,UnixDate(ParseDate($t),"%s");if(eof()){@a=sort{$a<=>$b}@a;map{print"$_\n"}grep{$i++<10}grep{$_>0}sort{$b<=>$a}map{@a[$_+1]-@a[$_]} 0..$#a}' < access.log
perl -MDate::Manip -i -n -a -F'(\"[^\"]+\")|(\[[^\]]+\])|([^\s]+)' -e '($t=@F[14])=~s/[\[\]]//g;$s{$c++}=[UnixDate(ParseDate($t),"%s"),@F[17]]; map{print $s{$_}[1]."\n"}grep{$i++<10}sort{$s{$b}[0]<=>$s{$a}[0]}keys%s if(eof())' < access.log

cat access.log | cut -d'"' -f6 | (exec 3>&1; count=`tee /dev/stderr 2>&1 >&3 |wc -l`; echo $count)|tac|(read count; (sort|uniq -c | while read cnt agent; do echo $(($cnt*100/$count)) $cnt $agent; done))
cat access.log | (while read d; do d=${d/*[/}; d=${d/]*/}; d=${d/:/ }; d=${d//\//-}; echo `date -d "$d" +%s`; done)|sort -n -r | (while read d; do r=$(($p-$d)); if [ $r -gt 0 ]; then echo $r; fi; p=$d; done)|sort -n -r|head -n 10
cat access.log | (while read s; do d=$s; d=${d/*[/}; d=${d/]*/}; d=${d/:/ }; d=${d//\//-}; s=`echo "$s" |cut -d'"' -f2`; s=`echo "$s" |cut -d'"' -f1`; echo `date -d "$d" +%s` $s; done)|sort -r -n -k1|head -n 10| cut -d' ' -f3