On Fri, 13 Dec 2002 11:10:54 -0500, [EMAIL PROTECTED] (Ian
Zapczynski) wrote:
>Unfortunately, using the || as below doesn't change the behavior. Once
>my script tries to make the connection and can't, it exists with a
>"connection failed to $host, etc. etc." message, whether I use warnings
>or diagnostics or neither. If anyone can help me understand why this
>may be or if they experience the same, this would be terribly helpful.
> As I mentioned, I need to be able to trap this error and continue
>processing if a connection fails.
Wrap it in an eval statement.
######################################################3
#!/usr/bin/perl -w
use strict;
use Net::SFTP;
my $sftp = undef;
eval{
$sftp = Net::SFTP->new("localhost",
user=>"zzztester",
password=>"zzztest",
);
};
if ($@) { print "Sftp connection failed:\n $@\n"; }
if (! $sftp) {
print "I can't connect!\n";
}else{
print "SUCCESS!\n";
}
########################################################
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
