Perl - Пользовательский выход ошибки

Question

Мне нужно знать, как настроить собственные ошибки на Perl. Например, вот некоторый код:

my $filename = 'filaname1.exe'; 
print "Copying $filename"; 
copy("$dir_root\\$filename", "$spcl_dir\\$filename"); 
if ($? == "0") { 
    print " - Success!\n"; 
} 
else { print " - Failure!\n"; } 

Я попытался написать это и «поймать» ошибку и напечатать «Failure», когда я не получить код завершения 0, и печать «Успех», когда я делаю , Мне нужно знать, как я могу настроить это; Я действительно не хочу использовать die или что-то в этом роде, где он даст несколько загадочную ошибку (конечному пользователю).

Спасибо!

Answer 1

Вам необходимо прочитать документацию по $? в perlvar. Это значение:

статус, возвращаемый последней трубы близко, кавычкой ("`") команда, успешного вызова ждать() или waitpid(), или из системы() оператор ,

Ваш звонок для копирования (предположительно из файла :: Копия) находится не далеко от любой из этих категорий, поэтому $? не задано.

Однако, если вы прочтете документацию для File::Copy, вы увидите, что ее функция «возвращает 1 при успехе, 0 при сбое». Таким образом, вы можете значительно упростить свой код.

#!/usr/bin/perl 

use strict; use warnings; 

use File::Copy; 

if (copy('notthere', 'somewhere else')) { 
    warn "success\n"; 
} else { 
    warn "failure: $!\n"; 
} 

Обратите внимание, что я использовал «предупреждение», а не «печать», чтобы ошибки попадали в STDERR. Обратите внимание, что использование $! для отображения ошибки операционной системы. Это, конечно, может быть опущено, если оно не является удобным для пользователя.

Answer 2

Вы используете File :: Copy? Вы должны что-то использовать, потому что copy() не является ключевым словом perl или встроенной функцией.

documentation of File::Copy не относится к $? на всех, так что это, вероятно, ваша ошибка. Вы хотите проверить возвращаемое значение, и только если оно равно нулю, обратитесь к $ !.

use strict; 
use File::Copy qw(copy); 
my ($from, $to) = @ARGV; 
my $res = copy ($from, $to); 
if($res){ 
    print "Okay\n"; 
} 
else{ 
    print "Not Okay: $!\n"; 
}