perl "o" gestione errori: multi-statement su errore possibile?

Question

Questo costrutto è abbastanza comune in Perl:

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

Ma questo non sembra funzionare:

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

E 'possibile che la "o" di gestione degli errori per avere più di un comando?

Compilare il sopra:

# 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

si può sempre utilizzare do:

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

Oppure si può usare se/a meno che:

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

Oppure si può oscillare insieme il proprio subroutine:

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'è più di un modo per farlo.

Answer 2

gestione delle eccezioni in Perl è fatto con eval()

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