Persistent counter

[Tuna]

< Tuna scrathces his head>

In my program, I execute a subroutine N times. This subroutine calls external programs, which return either 0 or 1. I need to keep track of how many times "external.pl" fails. If it fails > 2x, I will enter another sequence of subroutines.

Here's an example:

## In main, I initialize,  

my $failedActivation = 0;


sub activateFirstCluster
  {
   
my $offlineStatus;

 if ($failedActivations eq  3 ) 
{

$offlineStatus = &executeTaskSequence($clusterHost, @offLineSequence);

}
else
  {

  $command = "/bin/ls";
                        
  ($error = &runSystemCommand($command)) && $failedActivations++;

print "failed $failedActivations times\n";

  return $success;
}

  }

If I inject an obvious error into the subroutine, such as rename $command to "/bin/lssss", my print statement still prints 0. Any ideas?

[nehlwyn]

Greetings fellow monk ,

do you "use strict" ?

I'm not sure , i see at first a weird if ($failedActivations eq 3 ) , it should be if ($failedActivations == 3 ) or if ($failedActivations eq "3" )

i think you should have an error message at least from that . Try to use strict ('helps a lot !!! as well as perl -w ) and give us some news of what happens in a reply to your question ...

the little one.

[Tuna]

I do use strict, as well as warnings. Ya wanna know what my problem was?
I assigned $command the value, "/bin/l". Guess what my system alias for "ls" is?

[little]

use warnings; # or the -w switch
then you would have gotten an error telling you that
my $failedActivation = 0;
was only used once, (possible typo?) as you refer to it later mistakenly by
$failedActivations

Have a nice day
All decision is left to your taste