Native Perl Tasks

Here is an example of a script as a local native perl task

• definition file:

   task perl
     edit ECF_MICRO '^'
     edit ECF_JOB_CMD '^ECF_JOB^ > ^ECF_JOBOUT^ 2>&1'
     label info "none"
     meter step -1 100 100
     event 1
     event 2

• headers:

  #!/usr/bin/env perl
  # head.pl
  use strict;
  
  my $ECF_PORT=^ECF_PORT:0^;
  $ENV{'ECF_PORT'} = "^ECF_PORT:0^"; # port
  $ENV{'ECF_NODE'} = "^ECF_NODE:0^"; # host
  $ENV{'ECF_NAME'} = "^ECF_NAME:0^"; # task path
  $ENV{'ECF_PASS'} = "^ECF_PASS:0^"; # password
  $ENV{'ECF_TRYNO'} = "^ECF_TRYNO:0^"; # job number
  
  sub xinit() { system("ecflow_client --init=$$"); }
  sub xabort() { system("ecflow_client --abort=$$"); }
  sub xcomplete() { system("ecflow_client --complete"); }
  sub xmeter($$) { my $name=shift; my $value=shift; 
  		 system("ecflow_client --meter=$name $value"); }
  sub xevent($)  { my $n=shift;    system("ecflow_client --event=$n"); }
  sub xlabel($$) {  my $name=shift; my $value=shift; 
  		  system("ecflow_client --label $name $value"); }
  xinit();
  eval '
  

  # tail.pl
  ';
  if ($@){
      print "caught signal: $@\n";
      xabort();
      exit;
    }
  print "the job is now complete\n";
  xcomplete();
  exit;

• task wrapper:

  #!/usr/bin/perl -w
  # perl.ecf
  ^include <head.pl>
  ^manual
  one liner manual
  ^end
  ^comment
  one liner comment
  ^end
  
  xlabel("info", "start");
  xevent("1");
  print "a perl task";
  for (my $step=1; $step <= 100; $step++) {
     print "this is the step number $step\n";
     xmeter("step", $step);
  }
  	
  xevent("2");	  
  xlabel("info", "completion");
  ^include <tail.pl>