dmesgのuptime部分を日付にする 2

dmesg の時間表記を日時に変換するやつ

#!/usr/bin/perl

my $btime = `grep btime /proc/stat|cut -b7-`;

open(my $fh, "dmesg |") or die("open");
while(<$fh>){
    if( $_ =~ m/^\[\s*(\d+)\.\d*\] (.*)$/ ){
        my $time = $1;
        my $text = $2;

        my ($S,$M,$H,$d,$m,$Y,$x) = localtime($time+$btime);
        my $date = sprintf( "%04d-%02d-%02d %02d:%02d:%02d", $Y+1900,$m+1,$d,$H,$M,$S );
        print( "[$date] $text\n" );
    }else{
        print
    }
}