Tuesday, April 10, 2007

ENDサブルーチン Perl

exitやdieで終了したあとで呼ばれる。
ただし「exec」、「kill -9」または異常終了などがあると呼ばれない。
複数ある場合は文の最後から呼ばれる。


exit;

END{
print "end1\n";
}

END{
print "end2\n";

}

END{
print "end3\n";

}

----- 結果 ----

end3
end2
end1
となる

No comments: