Changeset 20677 for trunk/ippScripts/scripts/magic_definerun.pl
- Timestamp:
- Nov 10, 2008, 4:57:31 PM (17 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/magic_definerun.pl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/magic_definerun.pl
r20676 r20677 32 32 # Parse the command-line arguments 33 33 my ($exp_id, $warp_id, $workdir, $dbname, $save_temps, $verbose); 34 # temporary option to restrict inputs to central skycells of exp_id 3730835 my $only_central_chips;36 34 37 35 GetOptions( … … 42 40 'save-temps' => \$save_temps, # Save temporary files? 43 41 'verbose' => \$verbose, # Print stuff? 44 'only-central-chips' => \$only_central_chips, # only include the central 4 chips45 42 ) or pod2usage( 2 ); 46 43 … … 90 87 print "$num_skyfiles skyfiles found for $exp_id\n" if $verbose; 91 88 92 # this list is for a particular exposure 37308 93 my %skycell_filter = ( 94 'skycell.02877.14' => 1, 95 'skycell.02877.15' => 1, 96 'skycell.02877.21' => 1, 97 'skycell.02877.22' => 1, 98 'skycell.02877.23' => 1, 99 'skycell.02877.29' => 1, 100 'skycell.02877.30' => 1, 101 'skycell.02877.31' => 1, 102 'skycell.02877.37' => 1, 103 'skycell.02877.38' => 1, 104 'skycell.02877.46' => 1, 105 'skycell.02879.08' => 1, 106 'skycell.02879.16' => 1, 107 'skycell.02879.25' => 1, 108 'skycell.02879.32' => 1, 109 'skycell.02879.33' => 1, 110 'skycell.02879.40' => 1, 111 'skycell.02879.41' => 1 112 ); 113 114 if ($warp_id or $only_central_chips) { 89 if ($warp_id) { 115 90 # filter the inputs 116 91 my $i = 0; … … 118 93 my $keep = 1; 119 94 my $sf = $inputs->[$i]; 120 my $skycell_id = $sf->{skycell_id};121 95 my $this_warp_id = $sf->{warp_id_temp_0}; 122 96 123 if ($only_central_chips and ! $skycell_filter{$skycell_id} ) { 124 $keep = 0; 125 } 126 if ($warp_id and ($warp_id ne $this_warp_id)) { 97 if ($warp_id ne $this_warp_id) { 127 98 $keep = 0; 128 99 }
Note:
See TracChangeset
for help on using the changeset viewer.
