从 $log 读取开关机记录

[eexpress]

代码： 全选

2013-09-20 20:25:08 五 ~ 
● cat log-on.pl 
#!/usr/bin/perl

$log='/var/log/kern.log';
$re='proc\b';

open IN,$log; @_=grep /$re/,<IN>; close IN;

if(@_<3){
	$log.=".1";
	open IN,$log; @_=grep /$re/,<IN>; close IN;
}
print "从 $log 读取开关机记录：\n";
#---------------------------------------
$lastday="";
for(@_){
	/(\w+\s+\w+)\s(\S+)/;
	$day=$1; $time=$2;
	$statu=/start/;
	if($day ne $lastday){
		$lastday=$day;
		$localday=`date -d "$day"`; $localday=~s/\s+\d\d\:.*//; chomp $localday;
		print "\n=====$localday=====\n";
	}
	if(/start/){print "$time -> ";}else{print "$time.\n";}
}
print "\n";

2013-09-20 20:27:46 五 ~ 
● ./log-on.pl 
从 /var/log/kern.log.1 读取开关机记录：

=====2013年 09月 08日 星期日=====
21:40:22.

=====2013年 09月 10日 星期二=====
17:32:23 -> 19:43:19.
20:12:26 -> 21:53:36 -> 23:23:23.

=====2013年 09月 15日 星期日=====
18:36:42 -> 18:43:28.

=====2013年 09月 17日 星期二=====
09:28:55 -> 10:46:52.

=====2013年 09月 20日 星期五=====
14:37:29 -> 14:53:51.
15:23:26 -> 17:10:46.
17:32:44 -> 

居然有些有2次启动。

[needle]

开关机的标志在于
kernel: 后面有没有[号
开始还是结束在于
有没有started
学习了！

[eexpress]

https://github.com/eexpress/eexp-bin/bl ... /log-on.pl

[maplebeats]

pl
去死

[eexpress]

https://github.com/eexpress/eexp-bin/bl ... runtime.pl

代码： 全选

● log.runtime.pl 
从 /var/log/kern.log 读取开关机记录：

=====2013年 09月 20日 星期五=====
20:47:15.
20:47:16 -> 

=====2013年 09月 21日 星期六=====
02:22:09. 运行了 5:34:53
10:47:22 -> 12:24:51 -> 12:32:06 -> 16:16:27. 运行了 5:29:05
17:06:31 -> 21:10:17. 运行了 4:03:46

=====2013年 09月 22日 星期日=====
17:22:50 -> 17:37:12. 运行了 0:14:22
19:32:19 -> 19:40:46. 运行了 0:08:27

=====2013年 09月 29日 星期日=====
20:39:31 -> 20:40:12. 运行了 0:00:41
20:43:33 -> 20:43:45. 运行了 0:00:12

=====2013年 10月 02日 星期三=====
14:05:42 -> 16:56:11. 运行了 2:50:29
20:56:53 -> 

=====2013年 10月 03日 星期四=====
00:35:28. 运行了 3:38:35
11:21:35 -> 12:13:02. 运行了 0:51:27
17:56:31 -> now. 运行了 3:56:01

[photor]