perl "o" manejo de errores: ¿es posible una declaración múltiple en caso de error?

Question

Esta construcción es bastante común en Perl:

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

Pero esto no parece funcionar:

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

¿Es posible que la "o" de manejo de errores para tener más de un comando?

Compilación de lo anterior:

# 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

siempre se puede utilizar do:

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

O puede usar si/no ser que:

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

O puede oscilar juntos su propio subrutina:

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; 
} 

Hay más de una forma de hacerlo.

Answer 2

El manejo de excepciones en Perl se realiza con eval()

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