in reply to Continue Processing Subrouting Until Successfull

I think this is what you're wanting: 

 
foreach (@host) { 
    my $result = 255; 
    while( $result == 255 ) {
        $result = run($_); 
    }
    mail(); 
}

sub run { 
    my $host = $_[0]; 
    my $user = 'root'; 
    my $host = 'test-1'; 
    my $cmd = '/usr/local/scripts/down.pl'; 

    return( ssh("$user\@$host", $cmd) ); 
}

[download]

According to OpenSSH's documentation it returns 255 if there is an error. This should loop until you get success.

-----------------------------------
Frank Wiles <frank@wiles.org>
http://frank.wiles.org

Replies are listed 'Best First'.
Re: Re: Continue Processing Subrouting Until Successfull
by Dru (Hermit) on Jan 08, 2003 at 16:18 UTC
    Frank,

    Thank you for your response. Wouldn't this execute the run sub if $result equals 255? Should I use a until loop instead like: 
    until ($result == 255) {
  $result = run($_);
}

    [download]
    Also, can you plase explain what this does a little more $result = run($_);

    Thanks,
    Dru
[reply]
[d/l]
[select]

      No, the result is 255 until a success. So you want to continue looping until $result is not 255.

      As for the $result = run($_); If you notice I added a return() into the run subroutine. This will return the exit code of the ssh() call, which will be 255 ( according to OpenSSH's documentation ) if there is an error or the exit code of the command being run if there isn't an error.

      If your down.pl script returns a different exit code you'll want to adust your test to not be 255.

      -----------------------------------
      Frank Wiles <frank@wiles.org>
      http://frank.wiles.org
[reply]
      Why use $result at all 
      while (run($_)==255) {
  shift @hosts;
}

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom