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);
use Symbol qw(qualify_to_ref); sub my_eof (*) { my $handle = shift; $handle = qualify_to_ref($handle, caller()); # $handleを使用する } my_eof(HANDLE);