Language/Perl
[Perl] die
VIR&US
2023. 12. 31. 01:58
반응형
die
예외사항이 있을때 실행됩니다. 예를들어 file handle를 하기 위해 파일을 열었을때 file이 없을 경우 실행됩니다.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | #!/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"; | cs |
현재 *.txt 파일들이 존재하지 않는 경우 해당 코드를 실행시키면 다음과 같은 결과를 얻습니다.
Result
1 2 | Couldn't open 'test.txt' for writing because: No such file or directory at p.pl line 11. | cs |
11번째 줄에서 'die'가 실행하면서 코드 실행이 멈추게 됩니다.
만약 test.txt 파일은 있고 나머지 txt 파일이 없다면 다음과 같은 결과를 얻습니다.
1 2 3 4 5 6 7 8 9 10 | GLOB(0xff9ad0) "test2.txt" new test "test3.txt" add test | cs |
728x90
반응형