equal
deleted
inserted
replaced
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: Sat Jan 9 17:16:01 2016 |
5 # dlm: Wed Nov 9 12:25:36 2016 |
6 # (c) 2003 A.M. Thurnherr |
6 # (c) 2003 A.M. Thurnherr |
7 # uE-Info: 41 32 NIL 0 0 72 10 2 4 NIL ofnI |
7 # uE-Info: 65 0 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: |
37 # - BUG: usage message was not produced on empty arglist |
37 # - BUG: usage message was not produced on empty arglist |
38 # Jan 9, 2016: - added support for PRODUCER data field |
38 # Jan 9, 2016: - added support for PRODUCER data field |
39 # - updated getopts to current perl version |
39 # - updated getopts to current perl version |
40 # - updated IO library name |
40 # - updated IO library name |
41 # - adapted to [ADCP_tools_lib.pl] |
41 # - adapted to [ADCP_tools_lib.pl] |
|
42 # Nov 9, 2016: - BUG: no error on missing files |
42 |
43 |
43 use Getopt::Std; |
44 use Getopt::Std; |
44 |
45 |
45 ($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
46 ($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
46 $ADCP_tools_minVersion = 1.4; |
47 $ADCP_tools_minVersion = 1.4; |
53 print("#!/usr/bin/perl -S list\n"); |
54 print("#!/usr/bin/perl -S list\n"); |
54 chmod(0777&~umask,*STDOUT); |
55 chmod(0777&~umask,*STDOUT); |
55 print("#ANTS#FIELDS# {id} {serial_number} {transducer_frequency} {number_of_bins} {blanking_distance} {bin_length} {pulse_length}\n"); |
56 print("#ANTS#FIELDS# {id} {serial_number} {transducer_frequency} {number_of_bins} {blanking_distance} {bin_length} {pulse_length}\n"); |
56 } |
57 } |
57 |
58 |
58 while (-f $ARGV[0]) { |
59 while ($ARGV[0] ne '') { |
|
60 die("$ARGV[0]: No such file or directory\n") |
|
61 unless (-f $ARGV[0]); |
|
62 |
|
63 readHeader($ARGV[0],\%hdr); |
59 print("$ARGV[0]:\n") unless ($opt_s); |
64 print("$ARGV[0]:\n") unless ($opt_s); |
60 readHeader($ARGV[0],\%hdr); |
|
61 |
65 |
62 if ($opt_s) { # summary ANTS output |
66 if ($opt_s) { # summary ANTS output |
63 my($id) = $ARGV[0]; |
67 my($id) = $ARGV[0]; |
64 $id =~ s/00[0-9]\.000//; # leave just deployment name for std RDI files |
68 $id =~ s/00[0-9]\.000//; # leave just deployment name for std RDI files |
65 $id =~ s@^.*/([^/]+)@\1@; |
69 $id =~ s@^.*/([^/]+)@\1@; |