第一章: 文件句柄转化为 typeglob/glob 与文件句柄检测

#为了使在子例程中传递文件句柄不出问题
#我们要把文件句柄转为glob或typeglob


#转为glob
$fd = *MY_FILE;

#转为typeblog
$fd = \*MY_FILE;

#两种形式都行， 但\*MY_FILE更安全， 一般都用这个形式



#传递给子程序
hello(\*MY_FILE);

#从子程序返回
sub get_fd(){
    open FILE, "readme.txt";
    return \*FILE;
}

#fileno()函数可以检测一个变量是否是一个有效的文件句柄
#成功时返回文件描述符（一般是大于3, STDIN(0), STDOUT(1), STDERR(3)）
#当检测到不是文件句柄时返回undef;
die "Not a filehandle" unless(fileno($fh));