Следует ли умереть, если открытие файла не удалось?

Question

Большинство времени, я сделать что-то вроде этого:

open FH, ">file.txt" or die "Cann't open file: $!"; 

ли должны использоваться die? Если я хочу, чтобы мой скрипт продолжал (и просто игнорировал ошибку, если файл не может быть открыт), что мне делать?

Answer 1

Вы можете захотеть сделать что-то вроде

if(open my $fh, ">", "file.txt") { 
    # do stuff with file 
    close $fh; 
} 
else { 
    # do stuff without file 
} 

Answer 2

Вы можете использовать блок catch try, используя Try :: Tiny или что-то в этом роде.

Answer 3

Код не содержит die, если он не может получить доступ к файлу.

Если запись в файл не является обязательным, вы можете сделать что-то вроде этого:

my $file_is_ok = 0; 
open FH, ">file.txt" and $file_is_ok = 1; 
warn "No logging available" unless $file_is_ok; 

Тогда везде, где вы хотите использовать дескриптор файла, вы можете проверить первое, что это нормально:

$file_is_ok and print FH "Something happened"; 

Обычно вам нужно немного больше абстракции, чем выше, но я надеюсь, что этого достаточно, чтобы начать.

Answer 4

Нет, die определенно не обязательно использовать, иначе провалившийся open просто выйдет из программы. Это просто используемая конструкция, так как часто, если вы не можете открыть файл, нет смысла продолжать, но на самом деле нет требования к die или сделать что-нибудь еще.

Answer 5

я мог бы сделать что-то вроде:

sub process_file { 
    my $file = shift; 
    open(my $fh, ">", $file) or return; 
    # write to file ... 
} 

Answer 6

Рекомендуется использовать croak() из Carp вместо этого, особенно в модулях или объектов. См. http://perldoc.perl.org/Carp.html

Carp является стандартным модулем и, как и все стандартные модули, устанавливается с Perl. Список всех стандартных модулей доступен в perlmodlib. См http://perldoc.perl.org/perlmodlib.html

Answer 7

open(my $fh, ">", $file) or print "open failed , you are on your own\n"; 

Answer 8

Если то, что вы пытаетесь сделать, это избежать выхода из программы при возникновении ошибки открытия файла, опуская die не правильный подход. die - механизм исключения Perl; тот факт, что он прерывает программу по умолчанию, является случайным, а не фундаментальным, свойством. Если вы предоставляете обработчик исключений, вы сохраняете контроль. Правильный подход заключается в том, чтобы поймать исключение и выполнить очистку в блоке finally.

use 5.10.0; 
use Try::Tiny; 

my ($infile, $FH); 
try { 
    open $infile, '<', 'infile.txt' or die "Can't open infile"; 
    try { 
     open $FH, '>', 'file.txt' or die "Can't open outfile"; 
     my $line = <$infile>; 
     print $FH $line; 
     say 'Cleaning up $FH'; 
     close $FH; 
    } finally { 
     say 'Cleaning up $infile'; 
     close $infile; 
    } catch { 
     die $_; 
    }; 
} catch { 
    die $_; 
}; 

Так что если open $infile ... терпит неудачу, die к catch блок, который redies и ликвидирует сценарий. Но как только мы открыли $infile, если open $FH терпит неудачу, умрите в блок catch, который также прерывает программу, но сначала произойдет close $infile. Файловые дескрипторы - не лучшие примеры ресурсов для очистки до выхода программы, потому что интерпретатор автоматически закрывает файлы, но основная идея есть.

Если вам не нравятся вложенные блоки try, вы можете добиться такого же эффекта, проверив, какое исключение вызвало блокировку блока и решение о том, какая очистка необходима на основе этого. Это немного более хрупкий, но еще более надежный, чем все, что упоминается goto.

Answer 9

К сожалению для ответа на несколько месяцев старый вопрос, но так, как я делаю это за счет реализации моей собственной подпрограммой die стиль:

sub fail { 
    my $text = $_[0]; 

    # Do error-related stuff here, like send an email 
    die($text) # or just exit 
} 

open(my $fh, ">file.txt") or fail("Unable to open file: $!");