Sub Routine calls

mrras25 has asked for the wisdom of the Perl Monks concerning the following question:

This is probably simple but I am not able to wrap my head around this one -

I have a subroutine that checks to see if a status is 0 yet - what I would like is loop through until the status returns 0. How would I do this?

# Code to loop sub routine checkCopyStat
?????

#sub routine
sub checkCopyStat {
   my $clTyp = shift;
   $status = 0;
   open OUT, ">/usr/local/emc/bin/temp.txt" or die "unable to open fil
+e: $! \n";

   my $name = "LUN 120 DB"; # for test purposes

   my $navicmd = `naviseccli -address $spa -user $nviusr -password $nv
+ipwd -scope global clone -listclone -Name "$name" -cloneid $copies{$c
+lTyp} -Clonestate -PercentSynced`;

   print OUT "$navicmd"; #put contents into a temporary file
   close(OUT);

   open FILE, "< /usr/local/emc/bin/temp.txt" or die "unable to open f
+ile: $! \n";

   my %hash;
   while (<FILE>) {
      my ($col1, $col2) = (split /:/, $_)[0,1];
      chomp($col1,$col2);
      if(!$col1) {next;}
      if(!$col2) {next;}
      $hash{$col1} = $col2
   }

   foreach my $key(%hash) {
      if($hash{'CloneState'} =~ /Consistent/) {
         $status = 0;
      }elsif($hash{'CloneState'} =~ /Synchronizing/) {
         $status = $hash{'PercentSynced'};
      } else {
         print "State Unknown for clone\n";
         $status = -1;
      }
   }

   close(FILE);
   unlink('/usr/local/emc/bin/temp.txt');

   return($status);
}
[download]

Comment on Sub Routine calls Download Code

Replies are listed 'Best First'.
Re: Sub Routine calls by gmargo (Hermit) on Nov 18, 2009 at 05:03 UTC
Am I misunderstanding your question? Just a simple loop to check for zero? `while (checkCopyStat() != 0) { sleep 5; }` [download] Look out for that `foreach` over the hash - you don't need it.	[reply] [d/l] [select]
Re^2: Sub Routine calls by mrras25 (Acolyte) on Nov 18, 2009 at 05:54 UTC
Nope you guys were not misunderstanding - this is what a week of coding non-stop with the flu will do for you. Once you guys replied back with it, I went ahead and put foot into mouth - SWEET CHEESE I need some sleep! Thank you all for the help!	[reply]
Re^3: Sub Routine calls by Anonymous Monk on Nov 18, 2009 at 06:00 UTC
At least you're not trying to write css :) `position:absolute; display:inline; width: 100% 80% 40em 120em 20em;`	[reply]
Re^3: Sub Routine calls by cdarke (Prior) on Nov 18, 2009 at 10:29 UTC
SWEET CHEESE What do you think this is, Python?	[reply]
Re: Sub Routine calls by colwellj (Monk) on Nov 18, 2009 at 04:59 UTC
you can try something like this `while(checkCopyStat(?));` [download] If you want your script to do something else meanwhile you will need to fork	[reply] [d/l]
Re: Sub Routine calls by Jenda (Abbot) on Nov 18, 2009 at 12:31 UTC
There is no reason to use a temporary file. Just assign the results of the `naviseccli ...` into an array and loop through that array. Just replace the my $navicmd = `naviseccli -address $spa -user $nviusr -password $nvipw +d -scope global clone -listclone -Name "$name" -cloneid $copies{$clTy +p} -Clonestate -PercentSynced`; [download] by my @navicmd = `naviseccli -address $spa -user $nviusr -password $nvipw +d -scope global clone -listclone -Name "$name" -cloneid $copies{$clTy +p} -Clonestate -PercentSynced`; [download] remove all the file fiddling and replace `while (<FILE>) {` [download] by `foreach (@navicmd) {` [download] You might also want to rename that variable, because it doesn't contain any command, but rather the output or results of some command. Jenda Enoch was right! Enjoy the last years of Rome.	[reply] [d/l] [select]