Changeset 14239 for trunk/ippScripts/scripts/diff_skycell.pl

Timestamp:

Jul 16, 2007, 2:23:28 PM (19 years ago)

Author:

Paul Price

Message:

Putting in new stats parsing.

File:

• trunk/ippScripts/scripts/diff_skycell.pl (modified) (4 diffs)

trunk/ippScripts/scripts/diff_skycell.pl

@@ -47 +47 @@
     -exitval => 3,
           ) unless defined $diff_id;
+
+my $STATS = 
+   [   
+       #          PPSTATS KEYWORD         STATISTIC          DIFFTOOL FLAG
+       { name => "ROBUST_MEDIAN",  type => "mean",  flag => "-bg",             dtype => "float" },
+       { name => "ROBUST_STDEV",   type => "rms",   flag => "-bg_stdev",       dtype => "float" },
+   ];
+my $stats = PS::IPP::Metadata::Stats->new($STATS); # Stats parser
 
 # Look for programs we need
@@ -141 +149 @@
 
 # Perform subtraction
-my $stats = PS::IPP::Metadata::Stats->new(); # Stats parser
 unless ($no_op) {
     my $command = "$ppSub $input $template $outputRoot";
@@ -171 +178 @@
 }
 
-# Add the processed file to the database
-my $bg = ($stats->bg_mean() or 'NAN');
-my $bg_stdev = ($stats->bg_stdev() or 'NAN');
-
 unless ($no_update) {
 
@@ -180 +183 @@
     {
         my $command = "$difftool -adddiffskyfile -diff_id $diff_id -uri $outputName -path_base $outputRoot";
-        $command .= " -bg $bg -bg_stdev $bg_stdev";
+        $command .= $stats->cmdflags();
         $command .= " -dbname $dbname" if defined $dbname;