1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # S C A N B I N S |
3 # S C A N B I N S |
4 # doc: Mon Jan 27 17:55:34 2003 |
4 # doc: Mon Jan 27 17:55:34 2003 |
5 # dlm: Wed Sep 19 10:02:51 2007 |
5 # dlm: Thu Mar 17 07:45:37 2016 |
6 # (c) 2003 A.M. Thurnherr |
6 # (c) 2003 A.M. Thurnherr |
7 # uE-Info: 11 24 NIL 0 0 72 2 2 4 NIL ofnI |
7 # uE-Info: 20 22 NIL 0 0 72 2 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # Collect Per-Bin Stats |
10 # Collect Per-Bin Stats |
11 # NB: currently broken |
11 # NB: currently broken |
12 |
12 |
13 # HISTORY: |
13 # HISTORY: |
14 # Jan 27, 2003: - created |
14 # Jan 27, 2003: - created |
15 # Sep 19, 2007: - adapted to new [RDI_BB_Read.pl] (not tested) |
15 # Sep 19, 2007: - adapted to new [RDI_BB_Read.pl] (not tested) |
|
16 # Mar 17, 2016: - adapted to new Getopt library |
|
17 # - updated ancient library name |
16 |
18 |
17 $0 =~ m{(.*)/[^/]+}; |
19 $0 =~ m{(.*)/[^/]+}; |
18 require "$1/WorkhorseBinRead.pl"; |
20 require "$1/RDI_PD0_IO.pl"; |
19 require "getopts.pl"; |
21 use Getopt::Std; |
20 |
22 |
21 die("Usage: $0 " . |
23 die("Usage: $0 " . |
22 "" . |
24 "" . |
23 "<RDI file>\n") |
25 "<RDI file>\n") |
24 unless (&Getopts("") && @ARGV == 1); |
26 unless (&getopts("") && @ARGV == 1); |
25 |
27 |
26 print(STDERR "Reading $ARGV[0]..."); |
28 print(STDERR "Reading $ARGV[0]..."); |
27 readData($ARGV[0],\%dta); # read data |
29 readData($ARGV[0],\%dta); # read data |
28 print(STDERR "done\n"); |
30 print(STDERR "done\n"); |
29 |
31 |