blog.sonic-lux.net

#!/usr/bin/perl
 
use strict;
use warnings;
 
my @dmesg_new = ();
my $dmesg = "/bin/dmesg";
my @dmesg_old = `$dmesg`;
my $now = time();
my $uptime = `cat /proc/uptime | cut -d"." -f1`;
my $t_now = $now - $uptime;
 
foreach my $line ( @dmesg_old )
{
        chomp( $line );
        if( $line =~ m/\[\s*(\d+)\.(\d+)\](.*)/i )
        {
                my $t_time = scalar localtime( $t_now + $1 );
                push( @dmesg_new , "[ $t_time ] $3" );
        }
}
 
print join( "\n", @dmesg_new );
print "\n";

...
[ Fri Apr  8 20:04:40 2011 ]  usb 7-1: new full speed USB device using uhci_hcd and address 2
[ Fri Apr  8 20:04:40 2011 ]  usbcore: registered new interface driver usbserial
[ Fri Apr  8 20:04:40 2011 ]  USB Serial support registered for generic
[ Fri Apr  8 20:04:40 2011 ]  usbcore: registered new interface driver usbserial_generic
[ Fri Apr  8 20:04:40 2011 ]  usbserial: USB Serial Driver core
[ Fri Apr  8 20:04:40 2011 ]  USB Serial support registered for pl2303
[ Fri Apr  8 20:04:40 2011 ]  pl2303 7-1:1.0: pl2303 converter detected
[ Fri Apr  8 20:04:40 2011 ]  usb 7-1: pl2303 converter now attached to ttyUSB0
[ Fri Apr  8 20:04:40 2011 ]  usbcore: registered new interface driver pl2303
[ Fri Apr  8 20:04:40 2011 ]  pl2303: Prolific PL2303 USB to serial adaptor driver
[ Fri Apr  8 20:17:50 2011 ]  usb 7-1: USB disconnect, address 2
[ Fri Apr  8 20:17:50 2011 ]  pl2303 ttyUSB0: pl2303 converter now disconnected from ttyUSB0
[ Fri Apr  8 20:17:50 2011 ]  pl2303 7-1:1.0: device disconnected
...

[*] Show timing information on printks