7.5 ファイルハンドルを変数に格納する

• openの第1引数に未定義のスカラ変数を指定する。

open(my $fh, "<", $filename) or die;

• 型ブログ表記法を使用する。

$variable = *FILEHANDLE;   # ファイルハンドルを変数に格納
subroutine(*FILEHANDLE);   # ファイルハンドルを関数に直接渡す。

sub subroutine {
  my $fh = shift;
  print $fh "Hello, filehandle!\n";
}