Perl - 사용자 정의 오류 출력

Question

Perl에서 자체 오류를 사용자 정의하는 방법을 알아야합니다. 내가 "성공"나는 종료 코드 0을하지 않는 경우이와 "캐치"오류 및 인쇄 "실패"를 작성하는 노력

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

및 인쇄 : 예를 들어, 여기에 몇 가지 코드입니다 . 이 기능을 사용자 정의 할 수있는 방법을 알아야합니다. 나는 실질적으로 die 같은 것을 사용하고 싶지 않습니다. (최종 사용자에게) 다소 이상한 오류를 줄 것입니다.

감사합니다.

Answer 1

$? 문서를 읽어야합니다. perlvar. 이 값은 다음과 같습니다

는

마지막 파이프 가까운 역 따옴표에 의해 반환 된 상태는 ("``") 명령, 성공적으로 호출 (대기) 또는 는 waitpid() 또는 시스템에서() 운영자에게 .

Copy (아마도 File :: Copy)에서 전화를 걸면 그 범주에 미치지 않으므로 $? 설정되지 않았습니다.

그러나 설명서를 읽으면 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은 $? 전혀, 그래서 그것은 아마 당신의 실수입니다. 반환 값을 확인하고 0 일 때만 $!를 참조하십시오.

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