mirror of
https://github.com/Telecominfraproject/wlan-testing.git
synced 2026-01-14 17:16:25 +00:00
23 lines
419 B
Perl
Executable File
23 lines
419 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# Convert the timestamp in LANforge logs (it is in unix-time, miliseconds)
|
|
# to readable date.
|
|
|
|
use strict;
|
|
use POSIX qw(strftime);
|
|
|
|
while (<>) {
|
|
my $ln = $_;
|
|
chomp($ln);
|
|
if ($ln =~ /^(\d+):(.*)/) {
|
|
my $ts = $1;
|
|
my $rst = $2;
|
|
my $dt = strftime("%Y-%m-%d %H:%M:%S", localtime($ts / 1000));
|
|
my $msec = $ts % 1000;
|
|
print "$dt $msec:$rst\n";
|
|
}
|
|
else {
|
|
print "$ln\n";
|
|
}
|
|
}
|