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…