Perl: 什么时候需要 close 文件句柄?

七月 2, 2012

Perl 可以使用 open 函数来打开某个文件并对它进行一些操作,比如:打开一个名为 file.dat 的文件:

open my $fh, "<", "file.dat";

然后可以对文件进行一些操作,比如逐行打印它的内容:

while (<$fh>) {
   print;
}

然后程序可以结束了,这时有两种意见:

一种意见认为应该把 $fh 这个文件句柄关闭掉,用 close 函数:

close $fh;

这样子看起来与 open 遥相呼应,程序美观。

另一种意见认为不用写,直接运行程序就行,程序一结束,文件句柄就自动关闭了。更何况,我在这里使用了 my 来声明文件句柄变量 $fh,也就是说它的作用范围只会局限在该区域内,所以应该是非常安全的。

然而,下面这种情况就有问题了。读者自己可以亲自在 UNIX 上尝试,需要在当前目录下也放一个 file.dat 文件(里面随便写什么都行):

01 use File::Copy qw/copy/;
02 use Fatal qw/open close chdir mkdir copy rmdir/;
03 
04 # 创建一个临时目录 tmp
05 mkdir "tmp";
06 
07 # 把文件 file.dat 复制到临时目录 tmp
08 copy "file.dat", "tmp/file.dat";
09 
10 # 进入临时目录 tmp,然后对文件 file.dat 进行某些操作,比如打印它的内容
11 chdir "tmp";
12 open my $fh, "<", "file.dat";
13 while (<$fh>) {
14     print;
15 }
16 
17 # 删除该文件
18 unlink "file.dat";
19 
20 # 退出该临时目录,返回上层目录
21 chdir "..";
22 
23 # 删除该临时目录
24 rmdir "tmp";

虽然上面这些操作看起来匪夷所思,但不要怀疑,我在工作中还真用到了类似的操作(创建临时目录->操作文件->删除临时目录)。

这个程序在 Ubuntu 12.04 上运行起来完全正常,但是在诸如 Red Hat Enterprise Linux Server release 5.5 等“老操作系统”上就出问题了,而且还是严重错误:

Can't rmdir(tmp): 目录非空 at (eval 8) line 3
    main::ANON('tmp') called at tmp.pl line 24

然后,你会在当前目录下面发现程序创建的临时目录 tmp,看这个错误提示,是 tmp 目录里面还有东西,所以无法删除。可是参看一下 tmp 目录,发现里面什么东西也没有,哪怕使用 ls -al 命令(显示所有隐藏文件)来查看,也是什么都没有?

奇怪,明明 tmp 目录里面什么都没有,系统却硬说它不是空的,这是灵异事件吗?过去两年来,我还真的在电脑上遇到过许多无法用常理解释的灵异事件。不过,后来有一些是真相大白了。

其实,只要在第16行添上一句话就对了:

close $fh;

想想也没错,已经打开了一个文件,还没关闭它,就想把它删除了,这可能吗?然而在比较新的版本中这确实可以了(是操作系统比较新还是Perl版本比较新?没仔细研究过),只是在老的机器上出问题了。由于Perl的警告报错机制也并非百分之百正确,所以才会出现明明是空目录却硬说它“不空”的灵异现象。其实,那个目录里可能隐藏了一些IO信号,你用ls未必能看到它们。

所以,为了安全起见,所有程序 open 之后请务必 close

posted in Perl by billzt

Follow comments via the RSS Feed | Leave a comment | Trackback URL

说点什么

4 评论 在 "Perl: 什么时候需要 close 文件句柄?"

提醒
排序:   最新 | 最旧 | 得票最多
游客

close是好习惯w,但是C的话绝对是自动close了喵~

游客

@Mucid, 不熟悉C。如果没有close就删除这个文件会报错吗?

游客

@billzt, 因为Perl是解释型语言,运行于虚拟机,所以内存管理由虚拟机控制吧^_^

游客

@Mucid, 我的意思是文件句柄未释放,没必要纠结啦,close最好……

wpDiscuz
 

Copyright © 2010-2017 | Powered by Wordpress and MySQL. Theme by Shlomi Noach, openark.org