Changeset 27844

Timestamp:

May 3, 2010, 10:57:10 AM (16 years ago)

Author:

rhenders

Message:

Can now work from a list or a single job ID

File:

• trunk/ippToPsps/scripts/getExpIdFromJob.pl (modified) (3 diffs)

trunk/ippToPsps/scripts/getExpIdFromJob.pl

@@ -9 +9 @@
 my $path = undef;
 my $list = undef;
+my $job = undef;
 
 GetOptions(
         'path|p=s' => \$path,
         'list|l=s' => \$list,
+        'job|j=s' => \$job,
         ) or pod2usage( 2 );
 
@@ -21 +23 @@
         "--path <pathToJobsDir>\n".
         "--list <listOfJobNames>\n\n",
+        "--job <job>\n\n",
         -exitval => 3
         ) unless
 defined $path and
-defined $list;
+(defined $list || defined $job);
 
-my $job;
-open (LIST, "$list") || die "couldn't open the file at '$list'";
+if (defined $job) {getExpId($job);}
+else {
 
-while ($job = <LIST>) {
+    open (LIST, "$list") || die "couldn't open the file at '$list'";
+
+    while ($job = <LIST>) {
+
+        getExpId($job);
+
+    }
+
+close(LIST);
+}
+#################################################################
+#
+#
+#################################################################
+sub getExpId {
+    my ($job) = @_;
 
     chomp($job);
@@ -45 +63 @@
 
     }
-
 }
 
-close(LIST);
-
-
-