View Source

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>