Perl のファイルハンドラが開いているか確認しよう

Perl でファイルハンドラが開いているか（利用可能な状態かどうか）をチェックする方法を探してみました。

やりかたは幾つかあるようなんですが、fileno 関数を使うのが１番手っ取り早いようです。

使い方のサンプルは以下のようになります。

#!/usr/bin/perl

use strict;
use warnings;

open(FH, "<", "sample.txt");

if(fileno(FH)){
  print "Opened filehandle\n";
}else{
  print "Closed filehandle\n";
}

close(FH);
 

参考リンク
　・ファイルハンドルが Perl で開いているかを確認する方法