die 발생 시 변수로 저장하기(perl) Perl/Shell/Python/ruby/JAVA

use strict;
use Net::FTP;

my $host = "192.169.0.1";
my $user = "test";
my $passwd  = "test";

$SIG{__DIE__} = sub {
    prnt "Can't open $host\n";
}
my $f = Net::FTP->new($host) or die "Can't open $host\n";

$SIG{__DIE__} = sub {
    "Can't login $user\n";
}
$f->login($user, $passwd) or die "Can't login $user\n";

__DIE__는 die발생 시 호출된다. 반드시 die보다 윗쪽에 위치해야 한다.

덧글

댓글 입력 영역