Last change
on this file since 7933 was 4282, checked in by mervart, 12 years ago |
|
-
Property svn:executable
set to
*
|
File size:
669 bytes
|
Rev | Line | |
---|
[3443] | 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.