perl "hoặc" xử lý lỗi: đa tuyên bố về lỗi có thể?

Question

cấu trúc này là khá phổ biến trong perl:

opendir (B,"/somedir") or die "couldn't open dir!"; 

Nhưng điều này dường như không làm việc:

opendir (B, "/does-not-exist ") or { 
    print "sorry, that directory doesn't exist.\n"; 
    print "now I eat fugu.\n"; 
    exit 1; 
}; 

Có thể cho "hoặc" Lỗi xử lý để có nhiều hơn một lệnh?

Biên dịch trên:

# perl -c test.pl 
syntax error at test.pl line 5, near "print" 
syntax error at test.pl line 7, near "}" 
test.pl had compilation errors. 

Answer 1

Bạn luôn có thể sử dụng do:

opendir (B, "/does-not-exist ") or do { 
    print "sorry, that directory doesn't exist.\n"; 
    print "now I eat fugu.\n"; 
    exit 1; 
} 

Hoặc bạn có thể sử dụng nếu/trừ:

unless (opendir (B, "/does-not-exist ")) { 
    print "sorry, that directory doesn't exist.\n"; 
    print "now I eat fugu.\n"; 
    exit 1; 
} 

Hoặc bạn có thể xoay cùng của riêng bạn chương trình con:

opendir (B, "/does-not-exist ") or fugu(); 

sub fugu { 
    print "sorry, that directory doesn't exist.\n"; 
    print "now I eat fugu.\n"; 
    exit 1; 
} 

Có nhiều cách để thực hiện.

Answer 2

xử lý ngoại lệ trong Perl được thực hiện với eval()

eval { 
    ... 
} or do { 
    ...Use $@ to handle the error... 
};