source: ntrip/branches/BNC_LM/tstClock.pl

Last change on this file was 3443, checked in by mervart, 13 years ago
  • Property svn:executable set to *
File size: 669 bytes
Line 
1#!/usr/bin/perl -w
2
3use strict;
4
5# List of Parameters
6# ------------------
7my($fileName) = @ARGV;
8
9if (!defined($fileName)) {
10 die "Usage: tstClock.pl fileName\n";
11}
12
13open(inFile, "<$fileName") || die "Cannot open file $fileName";
14
15my %firstClk;
16
17while ( defined(my $line=<inFile>) ) {
18 if ($line =~ /Full Clock/) {
19 my @p = split(/\s+/, $line);
20 my $dateStr = $p[0];
21 my $timeStr = $p[1];
22 my $prn = $p[4];
23 my $iod = $p[5];
24 my $clk = $p[6];
25 if (!defined($firstClk{$prn})) {
26 $firstClk{$prn} = $clk;
27 }
28 printf("%s %s %s %14.4f\n",
29 $dateStr, $timeStr, $prn, $clk - $firstClk{$prn});
30 }
31}
32
33close(inFile);
34
Note: See TracBrowser for help on using the repository browser.