Changeset 39192 for trunk/tools/releasecalib

Timestamp:

Nov 27, 2015, 12:40:15 PM (11 years ago)

Author:

bills

Message:

The SAS.40 dvo has nebulous path gorp in the NAME field. Strip this out if
any ':' characters are found

File:

• trunk/tools/releasecalib/scripts/extractinfo (modified) (1 diff)

trunk/tools/releasecalib/scripts/extractinfo

@@ -65 +65 @@
     my $zpt = $clam - $mcal;
 
+    if ($name =~ ':') {
+        # semi colons in file name, must be a nebulous path split by ':' characters
+        # The smf name that we want is the last one
+        my @words = split ':', $name;
+        my $n = scalar @words;
+        die "cannot parse file name $name" unless $n;
+        $name = @words[$n-1];
+    }
     my ($exp_name, $exp_id, undef, $cam_id) = split '\.', $name;