Rod Jenkins wrote:
After a failed open, I want to run two statements for an "or die".
Code Quesiton:
open (TEST, ">/tmp/test")
or {
die "Could not open test file\n";
syslog("LOG_ALERT","Could not open test file");
};
This does not work, but what is the "right" way to do this? I know I
could write a MyDie sub and pass a string to it.
open TEST, '>', '/tmp/test'
or do {
syslog( 'LOG_ALERT', 'Could not open test file' );
die "Could not open test file\n";
};
unless ( open TEST, '>', '/tmp/test' ) {
syslog( 'LOG_ALERT', 'Could not open test file' );
die "Could not open test file\n";
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
