blessを使ったPerlオブジェクト指向

デストラクタ

 sub DESTROY {
     my $self = shift;
     $self->{fh}->close;
 }

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS