Dmesgh

1. !/usr/bin/perl
3. dmesgh: (c) 2011 by Peter_Siegrist(SystemLoesungen) <PSS@ZweierNet.ch>
4. This is Free Software.
6. Program dmesgh is a dmesg wrapper that prints out the dmesg timestamp (uptime) in a human readable form :)
7. usage: dmesgh

use POSIX qw(strftime);

my $t0 = time() - int((split(' ', `cat /proc/uptime`))[0]);

foreach ( `dmesg` ) { chomp; next if $_ !~ /^\[\s*(\d+)\.(\d+)\s*\]\s+(.*)/; my $tim = $t0 + $1; my $dmsec = substr($2,0,3); my $rest = $3; print "[", POSIX::strftime("%b %d %H:%M:%S", localtime($tim)), ".${dmsec}] $rest\n"; }