如何取得最近15分钟的日志，格式如下，要求可以跨年、月、日！

chhts

日志的格式如下，需要获得最近15分钟的日志
跨年月日正常运行，正常获取，比如：2013年1月1日0点5分执行此脚本，可以找到（15分钟之内）即：2012年12月31日23点50分之后日志


Oct 13 10:14:46 2012 XXXXXXXXXXX
Oct 13 10:14:47 2012 XXXXXXXXXXX
Oct 13 10:14:48 2012 XXXXXXXXXXX
Oct 13 10:14:56 2012 XXXXXXXXXXX

samleung18

你指某个日志, 如/var/log/messages, 还是所有日志啊?

chhts

是的，就是一个日志，文件很大

jason680

回复 1# chhts


# cat log
Oct 31 10:14:46 2012 XXXXXXXXXXX
Oct 31 10:14:47 2012 XXXXXXXXXXX
Oct 31 23:51:48 2012 XXXXXXXXXXX
Oct 31 23:54:56 2012 XXXXXXXXXXX

# bash log-15min.sh
2012-12-31 23:50:00
Oct 31 23:51:48 2012 XXXXXXXXXXX
Oct 31 23:54:56 2012 XXXXXXXXXXX

# cat log-15min.sh
# just for setting
date -s "2013-1-1 0:5:0" > /dev/null

min15=`date -d "-15min" "+%F %T"`
echo $min15

awk -vt="$min15" '
BEGIN{
  M["Jan"]= 1; M["Feb"]= 2;
  # ... do it for 1 to 12 month by yourself
  M["Oct"]=12;
}
{
  date=$4"-"M[$1]"-"$2" "$3
  #print date
  if(t < date) print
}
' log

   

samleung18

还不简单. 设一个cron job, 每十五分钟运行一次. 原理如下. 首次运行时截取整个日志, 第二次运行时, 把截取所得的和当前日志比较(diff), 得出的就是15分钟以内的了, 然后再截取作为下次运行时使用.
我公司也是用这种方法的, 适合你用吗? 但请注意第一次输出, 应该有点问题.

chhts

回复 5# samleung18

这个有问题，当原始日志被转储后，就不行了


   

samleung18

你之前没说要转储啊. 问问题前应该把所有条件描述清楚.

expert1

这类问题终极解决办法把时间戳都换成Unix纪元的second,取相对值，awk有个函数就做这个事的，这个用awk就很容易搞掂。

expert1

计算之后再转成相对时间如2012.10.14....这种即可。
。。。。。。

perlnewbie

1. #!perl -lw
   
2. use strict;
   
3. use POSIX qw(mktime);
   
4. # AUTHOR: niejieqiang
   
5. 
   
6. my %date =(
   
7.         Jan=>1,
   
8.         Feb=>2,
   
9.         Mar=>3,
   
10.         Apr=>4,
    
11.         May=>5,
    
12.         Jun=>6,
    
13.         Jul=>7,
    
14.         Aug=>8,
    
15.         Sep=>9,
    
16.         Oct=>10,
    
17.         Nov=>11,
    
18.         Dec=>12
    
19. );
    
20. my ($mon,$day,$hou,$min,$sec,$year);
    
21. my ($time,$now ,$secs, $limit);
    
22. while(<DATA>){
    
23.         $time = substr($_,0,20);
    
24.         $time=~s/^([A-z]+)/$date{$1}/;
    
25.         ($mon,$day,$hou,$min,$sec,$year)=split /\s|\:/,$time;
    
26.         $secs = POSIX::mktime($sec,$min,$hou,$day,$mon-1,$year-1900,0,0);
    
27. 
    
28.         $now=time();
    
29.         $limit = $now-15*60;
    
30.         print  if $secs > $limit ;
    
31. }
    
32. __DATA__
    
33. Oct 13 10:14:46 2012 XXXXXXXXXXX
    
34. Oct 13 10:14:47 2012 XXXXXXXXXXX
    
35. Oct 13 10:14:48 2012 XXXXXXXXXXX
    
36. Oct 14 10:44:56 2012 XXXXXXXXXXX
    
37. Oct 14 22:10:56 2012 XXXXXXXXXXX

复制代码