Executing a subroutine inside a die

[nationavon]

I need the ability to execute a subroutine inside of a die subroutine. The die would be called if a file handle couldn't be opened. Should I just do a:

open(FILE, "file.txt&quot or &mySub;

or

open(FILE, "file.txt&quot or die("it died"

Thanks in advance.

Nathan

 

[justice41]

You can actually do a combination of the two:

sub open_error {

    my $file = shift;
    print "Failed to open '$file'. Reason: $!\n";
    exit;
}

my $infile = 'file.txt';
open(FILE, $infile) or die &open_error($infile);

If you pass a subroutine to die it will execute the subroutine before dying. If the subroutine doesn't explicitly exit the program then die() will do it for you (you can test this by removing the 'exit;' from the subroutine).

jaa