#!/usr/bin/perl $on = "ioctl(3, KDSETLED, 0x4)"; $off = "ioctl(3, KDSETLED, 0)"; $sleep = "nanosleep({0, 250000000}"; open(LOG, "log"); $state = "OFF"; $timer = 0; while($line = ) { if (substr($line, 0, length($on)) eq $on) { if ($state eq "OFF") { if ($timer == 3) { print " "; } } $timer = 0; $state = "ON"; } if (substr($line, 0, length($off)) eq $off) { if ($state eq "ON") { if ($timer == 1) { print "."; $timer = 0; } if ($timer == 3) { print "-"; $timer = 0; } } $state = "OFF"; } if (substr($line, 0, length($sleep)) eq $sleep) { $timer++; } } print "\n"; close(LOG);