Last change
on this file since 5786 was 4282, checked in by mervart, 12 years ago |
|
-
Property svn:executable
set to
*
|
File size:
669 bytes
|
Line | |
---|
1 | #!/usr/bin/perl -w
|
---|
2 |
|
---|
3 | use strict;
|
---|
4 |
|
---|
5 | # List of Parameters
|
---|
6 | # ------------------
|
---|
7 | my($fileName) = @ARGV;
|
---|
8 |
|
---|
9 | if (!defined($fileName)) {
|
---|
10 | die "Usage: tstClock.pl fileName\n";
|
---|
11 | }
|
---|
12 |
|
---|
13 | open(inFile, "<$fileName") || die "Cannot open file $fileName";
|
---|
14 |
|
---|
15 | my %firstClk;
|
---|
16 |
|
---|
17 | while ( 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 |
|
---|
33 | close(inFile);
|
---|
34 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.