Changeset 77 for trunk/oarutils

Timestamp:

May 30, 2012, 1:59:59 PM (13 years ago)

Author:

g7moreau

Message:

• Add support for job name

File:

• trunk/oarutils/oar-parexec (modified) (3 diffs)

trunk/oarutils/oar-parexec

@@ -75 +75 @@
    my $job_num = 0;
    open(JOB_LIST, '<', "$file") or die "error: can't open job file $file: $!";
-   while (<JOB_LIST>) {
-      chomp;
-      next if m/^#/;
-      next if m/^\s*$/;
+   while (my $job_cmd = <JOB_LIST>) {
+      chomp $job_cmd;
+      next if $job_cmd =~ m/^#/;
+      next if $job_cmd =~ m/^\s*$/;
       $job_num++;
-      push @job, { name => $job_num, cmd => "$_" };
+      my ($job_name) = $job_cmd =~ m/#.*?\bname=(\S+?)\b/i;
+      $job_name ||= $job_num;
+      push @job, { name => $job_name, cmd => "$job_cmd" };
       }
    close JOB_LIST;
@@ -327 +329 @@
 the first valid job in the list will have the number 1 and so on...
 
+It's possible to fix the name inside a comment on the job line.
+For example:
+
+ $HOME/test/subjob1.sh # name=subjob1
+
+The key C<name> is case insensitive,
+the associated value cannot have a space...
+
 =item B<-d|--dir foldertoiterate>
 
@@ -414 +424 @@
 Example where F<$HOME/test/subjob1.sh> is a shell script (executable).
 
- $HOME/test/subjob1.sh
- $HOME/test/subjob2.sh
- $HOME/test/subjob3.sh
- $HOME/test/subjob4.sh
+ $HOME/test/subjob01.sh  # name=subjob01
+ $HOME/test/subjob02.sh  # name=subjob02
+ $HOME/test/subjob03.sh  # name=subjob03
+ $HOME/test/subjob04.sh  # name=subjob04
  ...
- $HOME/test/subjob38.sh
- $HOME/test/subjob39.sh
- $HOME/test/subjob40.sh
+ $HOME/test/subjob38.sh  # name=subjob38
+ $HOME/test/subjob39.sh  # name=subjob39
+ $HOME/test/subjob40.sh  # name=subjob40
 
 These jobs could be launch by: