1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # L I S T H D R |
3 # L I S T H D R |
4 # doc: Sat Jan 18 18:41:49 2003 |
4 # doc: Sat Jan 18 18:41:49 2003 |
5 # dlm: Tue Aug 8 16:25:46 2017 |
5 # dlm: Thu Dec 7 10:45:31 2017 |
6 # (c) 2003 A.M. Thurnherr |
6 # (c) 2003 A.M. Thurnherr |
7 # uE-Info: 102 39 NIL 0 0 72 10 2 4 NIL ofnI |
7 # uE-Info: 79 60 NIL 0 0 72 10 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # Print useful info from the RDI BB header |
10 # Print useful info from the RDI BB header |
11 |
11 |
12 # HISTORY: |
12 # HISTORY: |
45 # Aug 8, 2017: - added -l)ong listing |
45 # Aug 8, 2017: - added -l)ong listing |
46 |
46 |
47 use Getopt::Std; |
47 use Getopt::Std; |
48 |
48 |
49 ($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
49 ($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
50 $ADCP_tools_minVersion = 1.4; |
50 $ADCP_tools_minVersion = 2.1; |
51 require "$ADCP_TOOLS/ADCP_tools_lib.pl"; |
51 require "$ADCP_TOOLS/ADCP_tools_lib.pl"; |
52 |
52 |
53 die("Usage: $0 [-s)ummary] [-l)ong listing] <PD0 file[...]>\n") |
53 die("Usage: $0 [-s)ummary] [-l)ong listing] <PD0 file[...]>\n") |
54 unless (&getopts('ls') && @ARGV); |
54 unless (&getopts('ls') && @ARGV); |
55 |
55 |
61 |
61 |
62 while ($ARGV[0] ne '') { |
62 while ($ARGV[0] ne '') { |
63 die("$ARGV[0]: No such file or directory\n") |
63 die("$ARGV[0]: No such file or directory\n") |
64 unless (-f $ARGV[0]); |
64 unless (-f $ARGV[0]); |
65 |
65 |
66 readHeader($ARGV[0],\%hdr); |
66 my($valid) = readHeader($ARGV[0],\%hdr,$opt_s); |
67 print("$ARGV[0]:\n") unless ($opt_s); |
67 print("$ARGV[0]:\n") unless ($opt_s); |
68 |
68 |
69 if ($opt_s) { # summary ANTS output |
69 if ($opt_s) { # summary ANTS output |
70 my($id) = $ARGV[0]; |
70 my($id) = $ARGV[0]; |
71 $id =~ s/00[0-9]\.000//; # leave just deployment name for std RDI files |
71 $id =~ s/00[0-9]\.000//; # leave just deployment name for std RDI files |
72 $id =~ s@^.*/([^/]+)@\1@; |
72 $id =~ s@^.*/([^/]+)@\1@; |
73 printf("%s %d %.1f %d %g %d %.1f\n", |
73 if ($valid) { |
74 $id,$hdr{SERIAL_NUMBER},$hdr{BEAM_FREQUENCY}, |
74 printf("%s %d %.1f %d %g %d %.1f\n", |
75 $hdr{N_BINS},$hdr{BLANKING_DISTANCE},$hdr{BIN_LENGTH}, |
75 $id,$hdr{SERIAL_NUMBER},$hdr{BEAM_FREQUENCY}, |
76 $hdr{TRANSMITTED_PULSE_LENGTH}); |
76 $hdr{N_BINS},$hdr{BLANKING_DISTANCE},$hdr{BIN_LENGTH}, |
|
77 $hdr{TRANSMITTED_PULSE_LENGTH}); |
|
78 } else { |
|
79 printf("%s [no complete ensemble in file]\n",$id); |
|
80 } |
77 shift; |
81 shift; |
78 next; |
82 next; |
79 } |
83 } |
80 |
84 |
81 shift; |
85 shift; |