[Xastir] UI-View32 logfiles vs. Xastir logfiles
Jeremy McDermond
mcdermj at xenotropic.com
Mon Nov 9 16:05:08 EST 2009
I wrote this up really quick, but it appears I'm a little late:
--------
#!/usr/bin/perl
use strict;
use Date::Parse;
use Date::Manip qw(UnixDate ParseDateString);
$ENV{TZ} = 'GMT';
open MYFILE, "<", $ARGV[0];
while(<MYFILE>) {
if(!/([0-9]{4}-[0-9]{2}-[0-9]{2}) ([0-9]{2}:[0-9]{2}:[0-9]
{2}) ([0-9]{2}:[0-9]{2}:[0-9]{2})R ([0-9A-Z-]+>([0-9A-Z-]+,{0,1})+)
<UI Len=[0-9]+>:(.*)/) { next };
my $time = str2time("$1 $2");
my $path = $4;
my $packet = <MYFILE>;
chomp($packet);
print "# $time " . UnixDate(ParseDateString("epoch $time"),
"%a %b %e %H:%M:%S %Z %Y") . "\n";
print "$path:$packet\n";
}
close(MYFILE);
-------
You just call it with the filename you want to parse and it outputs to
STDOUT.
On Nov 9, 2009, at 3:47 PM, Curt, WE7U wrote:
> On Mon, 9 Nov 2009, Kevin Ratcliff wrote:
>
>> ...others
>> could potentially find it useful if you put it in the Xastir scripts
>> directory.
>
> Done.
>
> --
> Curt, WE7U. <http://www.eskimo.com/~archer>
> APRS: Where it's at! <http://www.xastir.org>
> Lotto: A tax on people who are bad at math. - unknown
> Windows: Microsoft's tax on computer illiterates. - WE7U.
> The world DOES revolve around me: I picked the coordinate system!"
> _______________________________________________
> Xastir mailing list
> Xastir at lists.xastir.org
> http://lists.xastir.org/cgi-bin/mailman/listinfo/xastir
>
More information about the Xastir
mailing list