Alignment/MillePedeAlignmentAlgorithm/scripts/mps_save.pl - master - githubmirror/cmssw

Alignment/MillePedeAlignmentAlgorithm/scripts/mps_save.pl

116 строк3 KB

Frank Meier

Changed mps scripts to copy back the millepede.end file. This file contains the detailed exit status of pede.

17 фев 2015, 02:29

17 фев 2015, 02:29e005b46

#!/usr/bin/env perl
#     R. Mankel, DESY Hamburg     11-Oct-2007
#     A. Parenti, DESY Hamburg    16-Apr-2008
#     $Revision: 1.11 $ by $Author: flucke $
#     $Date: 2009/06/24 10:14:03 $
#
#  Save output from jobs that have FETCH status
#  
#
#  Usage: mps_save.pl saveDir [n]
#

BEGIN {
use File::Basename;
unshift(@INC, dirname($0)."/mpslib");
}
use Mpslib;

$saveDir = "undefined";
# parse the arguments
$i=0;
$nMergeJob=0;
while (@ARGV) {
  $arg = shift(ARGV);
  if ($arg =~ /\A-/) {  # check for option 
    if ($arg =~ "h") {
      $helpwanted = 1;
    }
    elsif ($arg =~ "d") {
      $localdir = 1;
    }
    elsif ($arg =~ "u") {
      $updateDb = 1;
    }
    $optionstring = "$optionstring$arg";
  }
  else {                # parameters not related to options
    $i = $i + 1;
    if ($i eq 1) {
      $saveDir = $arg;
    } elsif ($i eq 2) {
      $nMergeJob = $arg;
    }
  }
}


if ($helpwanted == 1 or $saveDir eq "undefined") {
  print "Usage:\n  mps_save.pl destination [n]";
  print "\n    Saves results in directory 'destination' (that is created if needed).";
  print "\n    If <n> is given as second argument, choose n-th merge job, otherwise the 0-th.";
  print "\n  mps_save -h\n    This help.\n";
  exit 1;
}


# create output directory
if (-d $saveDir) {
  print "Reusing existing directory $saveDir ...\n";
}
else {
  system "mkdir -p $saveDir"; # -p by GF
}

read_db();

# go to merge job 
$i = $nJobs + $nMergeJob;
if ($i >= @JOBID) {
  print "Bad merge job number $i.\n";
}


if (@JOBSTATUS[$i] eq "FETCH"
    or @JOBSTATUS[$i] eq "OK" or @JOBSTATUS[$i] eq "TIMEL") {

  $dirPrefix = "jobData/@JOBDIR[$i]/";

  @FILENAMES = ("treeFile_merge.root","histograms_merge.root","millePedeMonitor_merge.root",
		"alignment_merge.py","alignment.log*","millepede.log*",
		"millepede.res*","millepede.his*","pede.dump*", "millepede.end",
		"alignments_MP.db","pedeSteer*.txt*","theScript.sh");

  while ($theFile = shift @FILENAMES) {
    $copyFile = $dirPrefix.$theFile;
    print "cp -p $copyFile $saveDir/\n";
    system "cp -p $copyFile $saveDir/";
    $retcode = $? >> 8;
    if ($retcode) {
	print "Copy of $copyFile failed, retcode=$retcode\n";
    }
  }

# Now copy the backup of original scripts, cfg and infiList
  $ScriptCfg = `ls jobData/ScriptsAndCfg???.tar`;
  chomp($ScriptCfg);
  $ScriptCfg =~ s/\n/ /g;
  $ScriptCfg =~ s/jobData\///g;

  @FILENAMES = split(' ',$ScriptCfg);

  while ($theFile = shift @FILENAMES) {
    $copyFile = "jobData/".$theFile;
    if (-r $copyFile) {
      print "cp -p $copyFile $saveDir/\n";
      system "cp -p $copyFile $saveDir/";
      $retcode = $? >> 8;
      if ($retcode) {
	print "Copy of $copyFile failed, retcode=$retcode\n";
      }
    }
    else {
      print "$copyFile unreadable or not existing\n";
    }
  }
}