[32475] in Perl-Users-Digest
Perl-Users Digest, Issue: 3740 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jul 21 21:09:18 2012
Date: Sat, 21 Jul 2012 18:09:05 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 21 Jul 2012 Volume: 11 Number: 3740
Today's topics:
Re: Error Handling in Net::SSH::Perl <rvtol+usenet@xs4all.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 21 Jul 2012 12:48:49 +0200
From: "Dr.Ruud" <rvtol+usenet@xs4all.nl>
Subject: Re: Error Handling in Net::SSH::Perl
Message-Id: <500a8912$0$6954$e4fe514c@news2.news.xs4all.nl>
On 2012-06-22 21:25, dagomakoa wrote:
> my $ssh;
> eval {
> $ssh = Net::SSH::Perl->connect( ... );
> };
> if ($@) {
> warn "Connect failed: $@\n";
> }
>
> It does not work with me, should we remove the option -w on the shebang or remove use warnings / use strict?
Don't base code flow on $@.
Write it like this:
my $ssh;
eval {
$ssh= Net::SSH::Perl->connect( ... );
1; # success
}
or do {
my $eval_error = $@ || 'Zombie Error';
warn "Connect failed: ", $eval_error, "\n";
};
or compacter:
my $ssh;
eval { $ssh= Net::SSH::Perl->connect( ... ); 1 }
or warn "Connect failed: ", ( $@ || 'Zombie Error' ), "\n";
--
Ruud
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 3740
***************************************
