perl -e 'use File::SortedSeek qw{:all};use Date::Manip;my $file=shift;my $sdate=shift;sub get_date{my($d) = $_[0]=~/\[(.*)\]/;return ParseDate($d);};open BIG,$file;alphabetic(*BIG,$sdate,\&get_date);while(my $l=<BIG>){if(get_date($l)=~m/$sdate/){print $l}else{last}}' /var/log/httpd/access_log 2008052100:05:05