7.6 ファイルハンドルを引数として受け取る関数を書く

  • Symbolモジュールのqualify_to_ref関数と*プロトタイプをサブルーチンで使用する。
use Symbol qw(qualify_to_ref);

sub my_eof (*) {
  my $handle = shift;
  $handle = qualify_to_ref($handle, caller());
  # $handleを使用する
}

my_eof(HANDLE);