[Perl] die

die

예외사항이 있을때 실행됩니다. 예를들어 file handle를 하기 위해 파일을 열었을때 file이 없을 경우 실행됩니다.

#!/usr/bin/perl
 
 
use strict;
use warnings;
 
 
 
my $file1 = "test.txt";
my $file2 = "test2.txt";
my $file3 = "test3.txt";
 
  
 
open (my $rd, "<", $file1) or die "Couldn't open '".$file1."' for writing because: ".$!;
open (my $wr, ">", $file2) or die "Couldn't open '".$file2."' for writing because: ".$!;
open (my $add, ">>", $file3) or die "Couldn't open '".$file3."' for writing because: ".$!;
 
 
 
print $rd;
close $rd;
print $wr "new test";
close $wr;
print $add "\n"."add test";

 

현재 *.txt 파일들이 존재하지 않는 경우 해당 코드를 실행시키면 다음과 같은 결과를 얻습니다.

 

​Result

Couldn't open 'test.txt' for writing because: No such file or directory at p.pl line 11.

11번째 줄에서 'die'가 실행하면서 코드 실행이 멈추게 됩니다.

만약 test.txt 파일은 있고 나머지 txt 파일이 없다면 다음과 같은 결과를 얻습니다.

GLOB(0xff9ad0)
 
"test2.txt"
 
new test
 
"test3.txt"
 
 
add test